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ABSTR/iGT 


An expeririental Relational Data Base llanragenent System has been 
iEiplenented on TDC-316 at Indian Institute of Technology^ Kanpur, The 
system provides most of the facilities required for Data Model Defini- 
tion, Data Sub language and Data Manipulation langiAage, The system 
has been extensively tested mth live data from two laboratories gene- 
rating 11 relations, and 28 distinct fields of different types and 
length. The results obtained have been encouraging. 

Bor typical applications of DBEvIS in monitoring progress of various 
jobs/projects, a Relational approach has been preferred to Hierarchical 
or network Approach for its simplicity and ease of implementation. 

Ihou^ inefficient in Data Processing environment TDC PORTRAIT has been 
used ir preference to BAL-316, because of its popularity and available 
system routines like SORT, IfflRGE. The system software, thou^ experi- 
mental can be implemented in its present form in any organisation having 


TDC-316. 
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CHAPTER I 


lUTROnJCTIOF 

1.1 Historical Background 

In early days of ^ectronic ^ta processing (eDP), machine-readable 
collections of data were stored on^ external media such, as cards or tapes. 
Beginning in the late fifties stud early sixties data banks y/ere being 
stored on-linS, using ^irect-access storage _devices (daSD) such as disks. 
During late sixties and early seventies , the idea of an integrated ^ta 
Base Management SSystems _{l)H/[S) was developed. This concept allowed seve- 
ral applications to share a common bank of data, maintained and protected 
by a central system. In an integrated data-base environment, the system 
provides each application program with its own viev^^ of the common data, 
implements various operalS®ns for retrieval and updating of data, and re- 
solves interference between concurrent nsers. 

1^2 Definitions 

An elaborate definition of DMS has been given by J . Martin as "a 
collection of interrelated data stored together with controlled redundancy 
to seive one or more applications in an optimal fashion; the data are 
stored so that they are independent of programs which use the data; a 
common and contr oiled approach is used in adding new data and modifying 
and retrieving existing data within the database" (l )• Engles has ^ven 
a working definition of data-base "A data-base is a collection of stored 
operational data used by the application systems of some particular enter- 
prise." (2). Enterprise has been used as generic term for any large scale 
commercial, scientific, tech33|,cal .j® pthsr operation. 
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1 c3 Objectives of DBMS 


aie major objectives of a centralised DMS can briefly be enumerated 


1-3.1 j^Av^ biiity ; Data Availability involves sharing of 

all the files of existing applications are 


gratedj but also hew applications may be developed to operate against 
the existing data-base, 

l^ta Qiality. Data Qrality means maintenance of Qtuality of data 
integrity of the system. The data may have poor quality because it 

was: 

(a) never any good; 

(b) altered by human error; 

(c; altered- i by program with a bug; 

altered by machine error; or 
(,e; destroyed by major catastrophe. 

(e.g., a mechanical failure of disk etc.) 

maintenance of quality involves the detection of error, determination 

he error occurred and c correction of the errorneous data, with 

p --wentivel. action to avoid repetition of the error. Ihe integrity of the 

data can be maintained by input-validation techniques in original data 

definition, logging of data base sdianges, periodic snapshots of the entire 

machine status and total or incremental data-base dump^i^^ ( 5 ) 

Independence ; That is the immunity of applications program 
hange in storage structure and access strategy. This is the most impor- 
tant objective ^ch encompasses both physical and logical data 

M Physical data independence. A system is data independent, 

if the program or adhoc requests are relatively independent 

OX the storage or aoeesa 
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m) logical data indepoadenoe : CChe ability to make logtoal 
ohaage to the data base without sigaifioaatly affectlag 
the programsvrfiich access it. 

lata iadepeadenoo lavolyes two aspects; first the capability of DIMS 
•to mipport various (system or user) views of the database, and second, 
the capability of Ms to allow modifications of these views without 
adversely affecting the integrity of the existing applicaticns. IMs 
definition of data indopeadenoe is perhaphs too broad. It suggests 

substantial logical changa could be made without creating a need to 
change the program - a difficult, if act impossible task. (3). 

Iota Red, mdnncj , Ihe amount of redundancy in the 

stored data should be rediif'o;^ 

educed and possibly eliminated. The current systemi 

(each application having its own private files) oftems a 1 

y j-vaue Iij.es; often lead to considerable 
redundancy in stored data with resultant waste in storage space. As a 

oorcllary, the problems of inconsistancy in the stored data can be avoided 
to a large extent. 

1-;.5 aasa^geourity, mo need to proteot the data base from 

inadvertent access or unathorised discolosure, is achieved throu* some 

security mechanism. Security audit'? + -t ^ 

i-cy audits iaudit trail) are achieved by logging 

access by people and programs to any secure lnf‘o^n+-r mu 

■b' e ure inioimation. These mechanians 

allow Rita Base Administrator +r^ 14. 

smra-cor ^DBA) to determine iflho has been accessing 

under vdiat cond'i'f"'? nyio +Urt i. 

f ^o^^toring possible i®53feagQ, and 

any threat to privacy. 

' 3-6 Sinagement Oontrnl : ihe establishment of the data administration 
functions W design of effective database. «th central centrol of data 
base, the SBA oan ensure that Installatlcn aad Industry standards are 
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followed in the representation of the data. Using his TmoiAledge of the 

reguirements of the enterprise as opposed to the needs of any individual 

user “ the DBA can structure database system to provide an overall service 

which is b'QSt for the enterprise. Giius the objectives of DBMS design 

involves trade offs, because users may have quite incompatible requirements 

1 .4 Generalised Architecture for a DHAS 

Ohe major components of the architecture for a typical DBMS are 
(4) 

shovffi in Pig. 1.1 . These are: i 

i 

1-4.1 User View : An application programmers or remote terminal ■ 

! 

usezfevLew hving any degree of sophistica1wai» Each user has his work area f 

I 

and uses a language vhich may be an independent Data Sub language (dSI) i 
or a data sublanguage embedded in host language. DSI in a v/ay defines | 

I 

a subschema for individual user. I 

1 

1-4.2 Analysis Physical Storage View ; The data base is physically ; 
recorded on secondary storage using physical data description software. 

1-4.3 System Analyst/PBA View : In between the data base and the | 

users is interposed the Data Model/data sub model. The model is simply a j 
view of the data base as it is viewed by the users. Hie mapping of the > 
data model into physical storage is provided by DBMS software and j 

operating system. Schema provides the Data Definitions fear the entire | 
data base. DBA’s responsibilities include the following: 

(t) Deciding inf ormatiop. eontents of data base, ’• 

; (id) Deciding the storage structure and access strategy. 

(i^l) liaison with users 

(^’gv) Defining authorization checks and validation procedure, 

. (g) Defining a strategy for backup and recovery. 

Monitorirg performance and responding to changes in requirement (5 
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1 .5 Overview of Thesis 

1-5.1 The importance of providing accurate information in th.ei'^bjortest 
possible time to heads of organization vAiether Government or private - 
cannot be over emphasized. The present-- work is aimed at providing one | 
such facility at any central location vtoere all data is centrally stored - ' 

t :■ 

and different types of querries are required to be answered. For example ^ 
Defence Eesearch and Development Organization (drDO) has a network of ’ ^ 
laboratories for undertaking different types of projects. The progress 
of each of the projects is required to be monitored at DBDO Head^arters ' 

located at Delhi, This monitoring can be done with the help of the 
software developed, J 

1-5.2 At present there are the undermentioned three approaches for | 

designing a Data Model for various applicati ons : ■ 

(&) Hierarchical approach .| 

(b) Network or DBTG Approach | 

(h) Relational Approach. ! 

j 

1-5.3 -AMr a brief introduction on DBMS in Chapter 1, the comparative | 
evaluation cf the three approaches has been done in Chapter II. For the | 
type of application envisaged it is felt that Relational approach may be | 

I 

more suitable. The design details of the relational approach with special ; 
emphasis on normalization and system architecture have been presented in j 
Chapter III, Chapter IV is devoted to the implementation details of Data 
Model Definition (DMD) Analyser, Data Sub Language (dSL) and Data ManipU-" 
lation routines. lltMoin the time and resources available system performanc 
of the Relational Data Base Bfenagement system has been evaluated. The 
report is given in Chapter V. In the concluding chapter the scope for 
future work on the subject has been recommended. 
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1 .6 Qhoico of Camputer System for Implementation 

1-6.1 in indigene ou sly designed computer system TIC-316 (a 16 bit, 
third generation minicomputer ) with the following configuration has been ' 

installed at Indian Institute of Technology, Kanpur: I 

a. TEC -3 16 processor I 

b. 28K word of core memory 

c. ASH 33 teletype device (KBD & TTY) [ 

d. Lov; speed reader (lse) * > 

e. High speed reader (HSR) i 

f. High speed punch (HSP) | 

g. 600 CM card reader (CR) ! 

h. 300 IPM Line Printer (iP) : 

7.8M ;^te disk Unit. ! 

k. Lowiospeed Punch (ESP) 

’ 

1-6.2 The choice of the system for BBMS implementation was made prl- j 

marily because of the ready v' availability of the computer time for software | 

I 

development on TDC-316. Certain hardware features like stack, bus for I/Q, | 

. ' I 

could be made use of, provided suitable language is chosen for implementation, j 

It was further felt that the development of DBMS package for an inde- | 

I 

geneous computer, would benefit at large number of Indian users in various ! 

Government departments, business houses, universities and laboratories, 1 

■ . - 1 
■ . f 

Hearly 35 TDC 316 have already been marketed in India to the various agencies, 

1.7 Language for Implementation 

i 

1-7*1 Since BRASS was not fully implemented, the choice of language 
for implementation was strictly between BAL-316 and PORTRAI. COBOL, the 
most commonly used language for Data Processing in the world, has yet to 
be implemented on TDG,-31 6. The compiler is still under development at the 

ELectronics' Corporation of India, Hyderabad. ALGOL compiler is also not ready, 

' 

In addition to the above mentioned reasons, it was decided to use TDC 
PORTRAN for partial implementatioa -of Relational Data Base Management 
System, because: 
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(a) i'ORTRM is a widely accepted machine independent language. 

(h) \Ta.th subroutine structure available, there would be no need 
to rewrite the compiler for extension of RORTRAN’ for DBMS. 

(c) A number of programs written in PORTRAF to provide various 
utilities like SORT, MERGE could be readily used. 

(d) The software developed in PORTRAF coiild be transported to i 

any other machine having PORTRAF compiler with lease. I 

(e) Tine available for implementation of complete system was 
approximately 6-man months. In such a short time it would 
have been very difficilLt to use BAL-316. 

(f ) Being a High Level Language with the following special j 

j 

feature prx)granaing would be easier: | 

(i) 0,T and single quote PORMATS 1 

(ii) Adjustable Execution Time POUEATS using F | 

(iii) mdth free PaEMAES j 

(iv) Conditional caapilation facility | 

(v) Complete mixed tao.de arithmetie^ I" . j 

1 

■ 

1-7.2 However one of the major constraints in using PORTRAF would be | 
the limited run time memory of 16K words including users work space. Giving 
2-4K word to user, entire software, incorporating Data Definition Language, 
Search routines. Data manipulation features of DSL, ^ould be completed in 
12K words. In a sirailiar type of software developed for partial iE^lementatioii 
of C0IAS7L DBTG report on CDC 6500 computer, it has taken 30K memory (6 ). 



CHAPTER II 


EVAEUATIOH OP APPROACHES 
2.1 General Tenainology 

The evolving field of data model approaches is often hcdy debated. 
Proponeni^ of each model point out advantages, but so far there is no con- 
sensus as to the best version. A DHIS generally supports one of the data 
models i.e., hierarchy, network or relational. Since each model uses a 
different terminology, Tabl el attempts to equate the various teims with 
the concep-^'that have been developed ( 3 ). 


Concept 

Eelati onal 

Network 

Hlerarchic«C 

Item 

Hole name/domain 

Data item type 

Item/field 

Item value 

component 

data item occurence 

value 

Group 

not allowed 

group 

group 

Entity (type) 

relati on 

record type 

entry/segment type 

Entity instance tuple 

record occurrence 

entry/segment 

occurrence 

Data administrative Data model (DM)loglcal stmacture 
view 

logical structure 

Definition 
of DBA view 

DM definition 

Schema 

Schema 

User view 

Data su^ model 

subschema 

subschema 

Entry point 

Primary key 

singul.:.r sets 

CADC rec ords 

root group 
root segment 

Single unique 
identifier 

candidate key 



key 

sequencer 


Table 2.1 Comparative Terminology 
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2.2 Hje-jarcluoal Approach 

2-2.1 Por historical reasons this approach is very popular; it is 
used in many existing data tase systems including IBM's Information 
Management System (iMS). It has its origin in the storage structure vdiich 
were prevalent whenli most data processing was performed with purely 
sequential media, and there was oily a mini mal distinction 'between the 
data model and the storage structure, Pigure 2.1 presents a hierarchical 
model of two laboratories vlth their projects, -vdiere LAB's are superior 
to projects. 


iLAB 1 j BAEGAICEE 



J 1 

|LAB 2 1 

H'TOERABAD | 


i 

NAME 

SCOPE 

, 

P4 

XYZ 

JKL 

i P2 

ABCD 

im 

' i 

P5 

PQR 

1 MNT 

1 


Pig. 2-1 lab-and-Project data model in 
hierarchical form. 

2-2,2 Each occurrence consists of one lab segment occurrence together 
with one project segment for each of the projects. Ihe unit of access - 
i.e., the smallest amount of data which may be transferred by one DSL 
statement is normally one segment occurrence. In hierarchical model - 
a hierarchy of entities is involved - a superior entity and one or more 
inferior entities, each of which may participate as superior entitites 
at a third level. A hiearchy represents a 'tree', 'bush' or 'fan-out' 
of entities all related by family tree-like relationship (with no sons 
shared by different fathers), lie top most level of hiearchy is termed 
the entry c®. root. 













2-2.3 The major advantage of the hierarchical approach is that it 
obviously provides a very natural way of modelling a hierarchical 
structure from real world #iich generally are one to many type. HoTOver, 
difficulties arise viien we try to operate on many to many relationship. 

By t'.'..:; way of illustr'-tion, let us consider two sample queries on Lab- 
Project model and DSL algorithm required to answer these using hierar- 
chical approach (Table 2,2.). 


;Ql. Find Project/^ for the 

S Project under taken by 

j L/iB2? 

02. Find LAB# having Project # 

P2? 

Get unique with LAB = 

Get to start of data 

i LAB 2 


jlSText : Get next part for this 

Next : Get next LAB. LAB found? : 

i LAB Project found? If 

If not EXIT. Get next project 

1 not EXIT. 

j for this LAB with P ^ = P2 

j Print P / 

Project found? If not go to 

Go To FText 

: next . Print LAB ^ 

1 1 

t i 

Go to Next it. 


Table 2.2 Two sample queries on the hierarchical model. 

2-2.4 It can be observed, that even thou^ the two original queries 
are symmetric in the sense that one is inverse of the other, the DSL 
procedures required to answer them are certainly not symmetric. !Iliis 
illustrates one of the drawbacks of the hierarchical model - i.e., un- 
necessary complexity. The hierarchical model also suffers from a number 
of anomalies in connection with storage operations of adding, deleting 
and updating, as indicated: , , 
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Adding ; It is not possible, without introducing a dutany 
laboratory, to insert data concerning a nevi/ -project - say 
P7 - until it has been assigned to a particular laboratory. 
Deleting ; If we deleted a laboratory having a particular 
project, the data concerning that project is lost, because 
deletion of any segment occurrence autonatically deletes 
subordinate segments in keeping with the hiearclxLcal 
philosophy. 

(c ) Updating ; If we need to change the scope of a nulti lab 
project, we are faced with either the problem of searching 
the entire data model to find every occurrence of the 
project or the possibility of rendering the data model 
inconsistent. The logical data base facility of IlIS 
overcomes many of the difficiilties, which in a way is a 
feature of the particilLar implementation and not the 
hierarchical approach (5 ) . 

2-2.5 Advantages 

(a) It is a simple data model i/daich provides the users with rela- 
tively few easy to master coiannnds. 

(b) Because of the constraints on type of relationships allowed, 
it can allow an easier implementation than other complex 
structures. 

2-2.6 Bl sadvantages 

(a) Ihe restrictions imposed in usii'ig one-to many relationship, 
sometime causes unnatural organization, Bor instance, 

1I:M' relationship cliii 'sOE^tlab only be represented in -,;i 
clumsy way. 



(b/ Because of the strict hierarchical orderirjg, operations 
such as insertions and deletion become quite complex. 

(c^ A delete operation can lead to loss of infomation present 
in the descendents, if null records are not permitted. 
Consequently, users have to be careful when performing a 
delete operation. 

(d) It is sometimes not possible to answer symmetric queries 
easily in hierarchical system, Therefore, the structure 
of the data base may tend to reflect the needs of the 
applicati on (7 ) . 

2.3 The CTetwork Approach 

2-3.1 The data base management system specifications as publi^ed 
in 1971 Report of the CODASYL Data Base Task G-roup (dbTG)^^\ is a 
land mark in the development of data base technology. These specifica- 
tions have been the subject of much debate and have served as the basis 
for several commercially available systems like DBTfiS/lO, D&IS-1100, IIMS 
and IDS/II. 


2-3.2 Figure 2.2 shows how laboratories-and-scientific manpower 
might be represented in this system. The nodes of a DBTG network are 





|E4 ] SSOII 


ELECTROmCS K 


Figure 2,2 Part of laboratories-manpower data model in network form. 
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individ'aal record occurrences. A network is a nore general structure 
than a hierarchy because a given node ciay have any nuiaber of inmediate 
superiors (as well as any nunber of inmediate subordinates) - we are not 
limited to a laaxinum of one, as we are in a hierarchy. This enables us 
to represent a nany-to-nany correspondence in a reasonably direct manner. 
As shovn in Figure 2"^,, in addition to laboratorLes-nanpov/er themselves, 
we introduce a third type of record which we may call LIM. A link 
record occurrence represents the connection between one laboratories and 
one grade/rank of scientific, manpower, and contains data describing the 
connection (in this case the strength). All link occurrences for a 
given laboratory are placed on a chain starting at and returning to 
the laboratory. Similarly for all link occurrences for a given rank. 
Figure 2.2 shows chains for lABI and IAB2 and also incomplete chains for 
Ranks 1,2,3 and 4. The figure shows that 1AB2 at Hyderabad ha,s 6 PSCS, 

15 SSOI and 37 SSO II. 


Ql . Find the number of PScO 
in LAB2? 

Find lab ^ which has got 6 PScO? 

Find laboratory with LAB^ LAB2 

Find Rank ^ for Name = PScO 

Next : Find next link for the 

Next: Find next link for PScO 

lab. 

' link found? If not EXIT. 

link found? If not EXIT. 

FIND Lab / for the link 

Find rank for this link. 

Get LAB 

GET PScO 

PRINT LAB / 

. Print Number 

GO TO Next. 1 

Go to Next 

U-.— ' — 1 

i 


Table 2,3 Sample querries on network model. 
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sub 

2-3 .5 ISie data^anguage (dSL) for network nodel riust obviousiLy permit 
the user to traverse the various connecting chains. This is handled with 
the help of the 'PIHD' statement. A 'Get' statement vdll retrieve the I 

record occurrence just found. Considering similiar queri.es Ql and 02, 
the algorithm for ansTAKring the querries in network approach is given in 
Table 2-3. It can be observed that with the network approach, symmetric 
questions require symmetric answers - an advantage over the basic hierarchical 
approach. Storage anomolies .are also overcome to a largo extent .as indicated 
below; 

Adding ; It is trivial to add a new rank, say, JSO. Initially 
there will be no links for the new post; its chain will con- 1 

sist of single pointer from the part in itself. ■ ! 

(b) Deleting: ¥/e can delete any laboratory without Hosing inf or- | 

. i 

nation about it and of rank structure of scientists, | 

/ \ ■ . ! 

(c. Updating : A feature of designation or number of persons in ; 

i 

. 

that cadre can be easily updated without inconsistency because 
it appears only at one place, 

2-3.4 The major disadvantage of the netvrork model is simply that it 
is too close to storage structure. The user has to be thoroughly awrare i 

of #iich chains do and do not exist, and his DSL programming rapidly 
becomes extremely complex. More significantly chains are directly visible 
to the user and hence must be directly represented in storage. There is 
thus a risk in the network appro<ach that' the user will become locked into 
a particular storage structure, contrary to the aim of data independence. 
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2-3*5 k partial inplemen-tation of CODASIL DBTG- report has been 
carried out as an extension to fORTEAF at Purdue University on GDC-6500^ ^ 
Most of Dill, search routines and DML featiAres have been achieved on the 
system usiiag subroutine calls. 

2«4 Phe Relational iipproach 

2-4.1 As James Martin writes in (l ), "Through out the history of 

engineering a principle seems to emerge: "G reat engineering is si mple 

engineering ." Ideas which become too cunbersome, inflexible, and 

problematic tend to be replaced with newer, conceptually cleaner ideas 

which compared to the old, areaesthetic in their simplicity. E.P. Codd 

(g) 

in his paper of 1970 introduced a simple and ingenious concept which 
set the direction for research in relational data model for DBMS. The 
paper defined, data sublanguage as a set of facilities, suitable foi- 
embgdding in a host programming language, vhich permits the retrieval of 
various subsets of data from a data batik:. The paper noted that a standard 
logical notation, the first order predicate calculus, is apprqpriate as 
data sublanguage for n-ary relations. The paper also 'introduced a 
set of operator like 'Join', 'Projection' etc,, which wtere later developed 
into the well known relational algebra, finally the paper explored the 
properties of 'redundancy' and 'consistency' of relations, ^hich laid 
the ground work for Codd's later theory of nomalisation^"'*^^. 

2-4.2 Def inlti ons ; In mathematics, the term Relation is dcfihed 
as follows : 

"Given sets D1 , D2, ..., Dn' (not necessarily distinct), E is a 
relation on these n sets, if it. is a set of ordered n-tuples d^,d , 
d^ I such that d^ belongs to belongs to D 2 d^ belongs to D^. 
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Sets , D„, .... D are called dcnain of R. The number n is celled the 
degree of E and the number of tuples is cardinality . " (5 ) 

2-4.3 Table 2.4 indicates one such relation PEOJ. It is custonery 
(though not essential) vdien discussing relation to represent a relation 
as a table in vdiich each row represents a tuple. In the tabular repre- 
sentation of a relation the following properties, vdiich derive from the 
definition of relation, should be observed: 

(a) Fo tr/o rows (tuples) are identical. 

(b) The ordering of rows is not significant. 

(c) The ordering of column is significant. However, if any 
individual column is referred by the appropriate domain 
name, never by its relative position, then the ordering of 
column is insignifi^Wt • 

(d) Every value within a relation is ■ an atomic data item 
(Noimalised discussed in Chapter III). 

2-4.4 The columns of the table are called attribute . If two or more 
c olumnffl'ltasE the same dcaaain name, a separate role name is prefixed to 
domain name depending on its role. The individual entries like 'EEDE’ 


CODE 

(Si TO 

TIRE 

MMB 

DAB 

PR TO 

1 

1 


PA RADAR 

EEDE 

DED-52 

2 

' " •» 

0 

1001 

1002 

■m 

• 

#■ 

o 

15 

25 

. ■■ 

• 

2 

0 : 

♦ 

1 

2 

1 

♦ 1 

•m \ 1 

1 

^ , , ! 

DOP Radar 

■■■# 

« 

« 

SPA POR ^’?S042 
DP AEEIL 

0- ■ 

0 ^ 

DRDE 

a 

D2EL 

DLEL ■ 

■0 

ft 

IED-76 

DLR~18 

DLE-29 

' # 

0. 

i ' ' " , , '/ J 


Table 2.4 Tabular Relation PEOJ. 
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are called its conponents . A colimn or set of colunrs whose values uniquely 
identify a row of a relation is called a candidate key or sinply key . ¥/hen 
a relation has nore than .one key it is customary to designate one as the 
Primary Key . In relation PROJ, '' ■'.■v: CODE is the Primary key. 

2-4.5 Lariffuages % There is large variety of languages for relational 
DHvIS - four classes of which i.e.j relational c,alculus 5 , relational 
algebra, mapping oriented language and graphic-oriented language are 
discussed briefly. 

(a) Relational calculus ; The relational family of l-mguages grew 

fren the observation that the first order applied' predicate calculus can 

be used as DSL for normalized relation. CODD presented' the details of 

(1 1 ) 

such a calculus based sublanguage called DSL ALPHA . A typical query 
in ALPHA has two partsj a target , vdiich specifies the pcirticular attri- 
butes, -vihidi are to be returned and a qual if i cati on, which selects 
partici-lar tuples from the target relation by gi'wLng a condition ydiich 
they must satisfy. 

Example: Get W (PROH. NAME, PROJ. LAB): PROI. CODE = '1001' 

Result W 

I-kithematically, DSL ALPHA has been proved to be a compl^ete language. 

(l?) 

Various other larguages based on relational calculus are QJEL ", 

COLARD^"'^^ and OIhe relational calculus languages provide 

the undermenti esaed distinct advantages over IJfflS/DDLI and DBTG DSL. 

(i) Provides complete data independence, as it contains no 
reference to storage/access details. 


NAME 


GPA EORViS 042 DLRL 
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(ii) the language is very sinple yet ccnplete. 

(iii) The language is non procedural. 

(iv) The retrieval poT\?er of basic language can be simply 

and indefinitely extended by providing library functions. 

(v) It supports higher level languages. 

(b) Relational -Algebra: The relational algebra is a collection of 
operators that deal with whole relations, yielding new relations as a 


result. The major operators of relational algebra include; 

(i) Projection operator ; returns only the specified 
column of given relation and eliminates duplicates 
from the result, 

(ii) Restiriction operator selects only those tuples of 
a relation which satisfy a given condition. 

(iii) Join operator takes two relations as arguments and 
a new relation is formed by concatenating a tuple 
free each, wherever a given condition holds between 
then. 


(iv) Set-theoretic operators like union, intersection, 
and set difference take two relations as- operands, 
treating each as a set of tuples, and produce a 
single relation as a result - provided the operand 
relations have compatible sets of attributes. 


(v) Division operator which operates on two input 
relations to produce a third relation. 

(vi) Nesting of operators . The algebra has the conven- 
ient property that its operators can be nested to 
fom expression of arbitrary complexity by using 
parenthesis. 

languages based on relational algebra have been implemented at MIT 


( 15 ), 


lEM Scientific Centre, England^”' ^ and General Motors Eesearcii 

(17) 

laboratory' ■ \ As compared to DSL iffiPHA, the languages based on 
relational algebra provide data independence, simplicity, nonproce- 
durality, ease of extension and support for higher level language, to 
a lesser degree. .-y 
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(c ) Mapping-Oriented Language ; These languages directed at the non- 
prograrnning professional, offer poiwer equivalent to that of the relationaJ- 
calculus or algebra, while avoiding natheEiatical concepts such as quanti- 
fiers. Mapping oriented languages include SQUARE, a terse iiPL notation;^ 

(19) 

SEOJEL, a structured language based on English keywords , and SLICK, a 

(20) 

language intended for inplenentation on associative hardware^"' , The 
basic building block of such languages is the ’napping' which naps a 
known attribute or set of attributes into a desired attribute or set of 
attributes by neans of sone relation, 

(d) G-raphic-Oriented Languages ; In recently developed laiaguagos, 
the user states his query not by conventional linear syntax, but by 
filling in blanks or making a choice on a graphic displc.y. Examples 

(21 ) (2? '' 

of such language are CUPID , and Qhery by Example 

2-4,6 Storage Anonalies ; As far as storage operatj.ons aro concerned, 
it is sufficient to obser^re .tha.t in relational approach no difficulties/ 
anonalies arise provided correct nomalised relations have been chosen. 
Considering the sane operation; 

(a) Adding ; It is trivial to add a new project say 1005, 

Doing so vdll involve adding a new tuple to PEOJ 
relation; 

(b) Deletin g ; We can delete any tuple or even a conplete 
relation without losing any infomation. 

Updating ; We change PEEO in any tuple without search ' 

problens and without the problen M inconsistency 
because PEHO appears precisely in one tuple, 

2,5 Coaparative Evaluabion of the Approaches 

2-5.1 The conpa.rison of the three approaches for DatOu Models fron a 

nunber of points ha.s been done there is no simple answer to the best 

choice i Bach' appx'oach, will he^st the needs of a portion of diverse useos 
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cormimity. fflODASYL DBTG- implenentations are being mrketed comiercially. 

, • ^ 

Relational iciplenentations are being developed in 'university tuad research 
laboratories. There is no fully inplenented Relational DHIS at present. 

2-5.2 In hierarchical approach, relationships are entirely inplicit. 

The relationship between two entities is represented in soueway by a 
relative position occurrence of the concerned sequence. As a consequence 
the corresponding data sublanguage relies heavily on the concept of 
position within the data ba^se s in fact the DSL oust provide two types of 
operations, one for posi.tioning and one for retrieving or storing, althou^ 
the distinction nay not be very clear in a real system. The only way 
a user can retrieve the infomation contained in' a relation^ip is by 
building the infomation up dynamically as the result of sequence of DSL 
operations. 

2-5 <>3 In network approach on the other hand, relationships are repre- 
sented explici-tt'^y by neans of pointers. However, the very fact that 
pointers are used neans that the relationship and entities o.re considered 
as difficult things. Again the DSL nust provide two types of operations, 
and :,.g::d..i retrieving infomation from a relationship involves building up 
of inf omation dynanically. 

2-5.4 In relational approach, relationships are again represented 
explicitely. Here, however, they are represented in exactly the sane way 
as the entities i.e., by neans of tuples. In other words, relationships 
and entities are considered as the some type of object in relational 
approach. It is thus possible to provide a DSL with a •unifom set of opera- 
tions for laanipulating both - an obvious simplification. It can be argued, 
in fact, that -the relational model is a views of data base in terms of 
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structure only i it contains absolutely no consideration of 
storage access details such as position or pointers, it contains no 
’representation clutter. ' 

n 

2-5.5 In view of the above, it tos decided to base DHIS inplenen- 
tation on the Relational approach, using the feature of DSL based on 
Relational calculus - such as DSL ALPHA. 



CHAPTER III 


EEiATIOIAI APPROACH - DESIGl DETAILS 


3 <. 1 Genortil 

fe'.le discussing properties of a relation in Section 2-4»43, an 
important property v/as en'umerated mthout details. It is the property 
that 'every value (component) within a relation is an c.atonic data item’ 
This property has ccme to be knom as Noriaali zati on . In this chapter, 
it is proposed to discuss Normalisation concepts, broad system design 
and the data structures used in the implementation of the Relational 
Approach, 

3,2 Nomcili zati on 

\ 

Normalization theory begins with the observation that certain 
collections of relations have better properties in an upadiing envir onme ntt- 
thah do the other collie ctions of relations containing the same data. The 
theory tnen provides a rigorous discipline for the design of relations 
which have favourable update properties. The theory is based on a series 
of Normal Eorms - first, second and third form — 'vihich provide successive 
improvements in the update properties of the data base (see figure 3,1 )• 

I Universal relati ons (normalised and unnoimoli sed ) j 


INP (normalised relation) 



aNE Relation 

— I 

3 NF Relation 



figure 5,1 Levels of' Normalisation. 
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(a) Pirst ITomal Fora (iHP) ; A relation in first normal fono is 
a relation in vtiich each component of each tuple is non-dec onposable, 
i.e., the component is not a list or a relationo The relations in 
first normal form are sometime called "flat tables". As discussed in 
Chapter II, a relation in first normal fom nay exhibit the tlxree kinds 
of anomolies or misbehaviours 'called insertion, deletion and update 
anomalies. 

Second formal Porm (2HP) ; A normalized relation R is said 
to be in 2NI’ (second normal fozn), if and only if the nonekey domains 
of R, if <any, are functionally dependant on the primary key of R. 

Relation in 21® exhibit inprofi^fdd performance as regards the anonol-ies. 

21® is of little significance except as a stopping off place on way to 
31®. 

(c) Third Romal Rom (31® ) "• A rela.tion R is said to be in 31® 

if it i'^ in IJ® and, for every attribute collection C of R, if any 

attribute not in C is functionally dependent on C, then all attributes in 

( 23 ) 

R are functionally dependent on C Shorman gives a simple definition 

ns "a relation is in 31® if every determinant is a key"^^^^. 

Both definitions are formal ways of expressing a very simple idea: 
that each relation should describe a single 'concept' and if more than 
one concept is found in a relation, the relation should be split into 
smaller relations. The design of a data base in 31® depends on a knowledge 
of the functional dependencies among the attributes of the data. The 
knowledge cannot be discovered automatically, but must te furni^ed by 
the Data Base designer who understands the semantics of the infomation. 
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In fact there is no unique 31®' representation of a given data base. 
Keeping in view the ease with which update, insertion and deletion 
anoaalies are avoided by 31®, it was decided to inplenent relational 
data base using relations in 31®. The relations will have to be con- 
verted into 31® by the Data Base Designer nanTially at the Data Defini- 
tion stage, Functional dependencies in relation PROJ, which is in 31® 
is shown in Figure 3.2. It nay be observed that non-key donains are 

(a) nut-ually independent; 

(b) functionally dependent on the prinary key CODE. 



Figure 3,2 Relation PROJ function dependencies. 

3.3 Overall Systen Design 

Figure 3*3 shows the HLock Schematic of the overall system viev\r of the 
Relational -Data Base Management System being implemented. Brief description 
cf each of the blocks is given below; 









Figure 3 .3 : Overall ELock Schematic 
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3-3.1 Data Model Dcf inlti on (iMD ) : DMD includes definition of all 
the relations and their respective domins. Dor sinplicity, first dcEiain 


in each of the relation vill nomally he the KEY . The follomng comands 


have been used to fora Data Model Definition language, vdiioh can be given 
on KBD or OR on TDC-316 : 


(a) 


- The conoand defines a relation, its 
RMCE and Access code and level. 


^:(b) 

DCRMATS DIKED 
IR-IDTE&ER 15 
AH-A1PHA1 OA2 
AD-A1PHA30A2 


- The coQEiand defines a field or iten nane, 
and its type IKTEGER, AlPHAMMERIC (SENGLE 
or DOUHLE). Dor simplicity fixed formats 
have been used. 


(:I(4) DATA^;k^99 - This ccmand indicates that all ITETtf nones 

have been completed. Data tuples follovr. 
The number of tuples to be included in the 
relation are given for definition purposes. 

(iv) lEFD _ The eonnand indicates the end of DM and 

compHebion of Data Definition phase by the 
DBA. 


3r3.2 DMD Analyser ; This is the main software which checks the 
validity of each of the commands of DMD - bxrllds up various tables as 
part of the data structure nodule. It also prepares the INDEX for the 
various storage devices and places the relation on physical devices in 
conduction with the Data Base Control System, The implementation of DM 
Analyser has been discussed in details in Chapter 11. 

3-3 »3 Data Base Control Systems' TDC-316 does not support nulti- 
progfamming as such the software has been developed for single sequential 
forking, E The module encompessBB the system operating ^stem which includes 
key to disk management (KDM) system, DCRTRAN compiler and run time routines 
including library functions. The KCM software provided by ECIL-Hyderabad 
does not support RE'MEHD command in DORTRAN for tiie disk. It -ms decided 
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to nodify the systen to provide EEWIID cormand - as it woxiLd lei^i to 
saving in nenory space especially for data nanipul-tion routines, Ihe 
existing systen automatically remnds as and wtien EEAD/WHIITE connands 
are changed. It is desired to elininate this feature - ■shen 
cajnand worSs, Accordingly, the systen was nodified and the patches to 
the run tine control routine for FORTRAN (RC) and ICDM are given at 
Appendix 'A’. 

3-3.4 Data Structures for fapping ; For no.pping the logical struc- 
ture of data base systen on to the physical organization there is a 
requirenent of various data structures in the fom of systen table - 
which are required to be built and maintained by DBMS. Foll<^Sng 
are the important structures. 

(a) Relation Table (RTAB) ; The table includes one tuple 
for each of the relations in the systen and stores 
the detailed infomation about the relation. The 
layout of RTAB is given in Figure 3.4. The table is 
stored as an array (20, 10) in the systen to cater for 
20 relations in the systen. 

RTAB 


Relation 

ID 

Bane of the 
Relati on 

Device 

Bo 

Starting 

Position 

Access 

C odferd 

Bo. of 
tuple s 

Bo. of i 

fomats 

1 

2,5 

4 

5 

6 

1 

B1 

8 



1 BA AD 

9 10 

1 

PROJ 

4 

Poi 

1 

nter to cu] 

AB 

rrent rela1 

10 

bion. 

3 3 0 

■ i 


Figure 3.4 RTAB Paraneters 
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(b) Iten or Field Table (pTAB) ; The iten table foms a part 
of Data Dictionary, which maintains a list of all the iten 
names, their types and identification used. Layout of iiie 
DTAB is given in Figure 3.5. The table is stored as an 
array (■C'0,4) in the system t)f cater for '^(40 distict i]t'ams 
or field names. 


FTAB 


Item or 

Field ID 

Hane 

FOmiAT 

1 

CODE 

1 = in FORIL'VTS 


] 

2 = AF OODE 1 

1 

! 

3 = AD used. 

1 

RF 

1 

Pointer to current item/field | 

— \ 


Figure 3.5 FTAB Parameters with a Sample entry. 


(c ) Relation Field IH.rectory (BFDIH) ; This is a data structure 
which contains the list of all the relation ID’s and their 
corresponding field or iten ID's. For ease of ma.nipulati on 
FQEMAT as for each of the item is also stored in the same 
±toia. RFDIR layout is given in Figure 3.6. The taliLe is 
stcai'ed as an array (50,3) to cater for 50 entries. 


RFDIR 


Relation ID 

Field or Item ID 

FOFJI/'i.T 

1 

HFR 

j 

1 

Pointer to current ent; 

I 

1 : 

ry 




Figure 3.6 RFDIR Parameters with a Sample entry. 
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(d) Matrix of Gomon Field In Eelations (MCFR); Based on the 
conaon itens or fields between different relotions a nxn 
natrix is fomedj if user vrants to use n relation^. This 
natrix lEPH is used by various search and retrieve routines 
for transferring control fron one relation to the other. 
MCPH has been represented ah (10,10) array to cater to 


10 relation usage at a tine» 

3-3.5 Secondary Storage ; This is the physical organization on viiich 
the main data base :' is stored. The existing disk wiit -^-dth TDC-316 has 
the following features: 

(a) nunber surfaces 10 

nunber tracks/ surf ace 200 

’j (h) nxmber sectors/track 10 

(;{d) capacity per sector/track 128 words 

Thus the system having moveable head provides a capacity of 7.8M byte. 

With the help of KDM version 1, the disk has been divided into the 

following logical units - and accepts macro commands like READ, ’ffilTE 


and EEWIJED. 


Track UTo . Device Designation 


Device So, 


1-31 

32-49 

50-99 

100-149 

150-199 


Sot assigned for System Use 


D4 

13 

D1 

14 

D2 

15 

D3 

16 


In DMD and other softvwire device numbers (DSO) 2 j3j, 4 and % have been used 
in the index for 13, 14, 15 and 16 respectively. 
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3-3.6 Data Sub Lanfflxage Routines (dSL ) : This is the riajor softmre 
developed which provides data sub nodel definition as user vievf for each 
application. The various routines can be called froa any application 
progran, along with any library functions. Each of these routines have 
been discussed in details in Chapter lY. 

3-3.7 Data Sub Model Definition (dSIID): With the help of DSL a 
United logical sub nodel indicating users logical view is built up 
diiring definition phase. 

3-3.8 System Buffers ; BDEP (2,40 ) an array has been assigned as 
systen buffer to hold all interin values for nanipulation by different 
routines, 

3-3.9 User Work Jirea: lUSR (40,40) an array has been assigned as 
user's work area for holding all the output for the user till he wants 
then on a particular I/O device. 

3 .4 Operating Systen 

The relational data base can be inplenented in the follo?;ing two 

t 

phases? which are independent. 

(^) Haase 1 ; Data Model Definition phase for building and 

naintenance of data base by the DBA. Once all the relations 
have been generated the contents of the data structures are 
autonatically placed in the systen area on disk for use in 
Haase 2. The programs can be erased, after use. 
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(b) Phase 2 (JSL Phase ) ; Pirst the software tables are fetched froa. 
systen area on ®.sk whenever user OPEHS the data base. His access code 
and level is checked and his authorisation for the relations requested 
is verfied before building up liKIPR. With the help of various retrieve 
and data manipulation routines the desired output is obtained. After 
the use is over data base is CLOSED to initialise the various structure 
in the system. In case of errors/failures DUMP can be requested by 
users with level upto 10. 



CHA»)R IV 


IMPIEflEMlTATIOF OP DHIS OF TIC-316 

4o1 General 

Keeping in view the linited nenory availahle with POETMF run tine 
routine it was decided to attempt a partial implementation of Relational 
IMSSj covering the essential features. Once the principle is proved it 
would be possible to modify certain rigid features and dimensions to 
accomodate extra features. In this chapter IMD analyser and DSL sub- 
rcutines are discussed in detail. 

4.2 IM) Analyser Modules 

Data Model Definition Analyser nodule is required to analyse 
IMD language commands and accord3.ngLy build the relations and associated 
data structures. The main functions of the module are - 

(a) Check proper authorisation of DBA for building the 

data base. i,, 

(b) Verify USD language ctxnands shown in Section 3-3.1 . 

(c) Based on the coEmandSj CAH the appropriate routines 
for house keeping. 

(d ) Build up systaa data structures RTAB, PTAB aaid RPDIR. 

(e ) Allocate disk space to the relations aaad read In all 
the data. 

(f) Cater for 10^ extra ^aee for addition of tuples. 

(g) Qiaee all the relations data has been read in. et-ore 
the system data structures in system area for use by 
DSL, 

The IMD Jctain and its associated sradxroutiaes linlsifes are ^own in Mg, 
4.1. Bet tts diseuss the fiiincfeibs 0 e% wcaMng arid flowchart of each of 
the ooiw&tumts* '■ ■ 
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Figure 4.1 Dlffl Analyser nodule -with it s 
subroutines . 


4 4-2.1 Wm'n tiivm Analyser ; OZbe flow cloart for Main FIE) Analyser is 

shown in Figure 4.2. Functiorsperf ccmed by the prograa are - 

(a) Initialisation of all tables, pointers and variable 
codes. 

(b) Talidatii^ EELK ccaanand, storing relation nane and 
its access code. 

(c) Validating FLFS ccxmands and storing field nane and 
type in FTAB for all itens. 


(d) testing for FAIA comand and ascertaining nunber of 
tuplffi in the initial relation. Working out the eartra 
spafee ,:f in? adding 'feuixLes duiing ■'■run' -tine » ■ 'KC®' 1*0111103 
is used for conTerting Sn® A2 to 15 fomat. 


(e) Data structure RFAB is built up after disk storage 
details have been worked out. 


(f ) Subrcaitine IQPi is used for input/output fron any' 
device to system buffers and fron system buffer to 
the appropriate device. All the relation tuples are 
placed on iiie secondary storage and an indeoc is main- 
tained in RfAB. 

(g) iests for lEED command after each relation - If not. 

It checks for a fresh EEEI card and repeats (b) to (f ) 
till TFiro command is ^leecsrtered, 

(h) All systm tables ElAB, and IFDIE are stored in 

system, area (D4 or Devriee , 
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Figure 4.2 pliD ijaalyser Ulowchtirt 







ligure 4.3 Flowchart for Subroutine lEOILlT 
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4-2.2 Subroutine IBELCT : Plow chart for subroutine lEELIT is given 
in Figure 4.3. Phe following functions are perforned by lEELIT; 

(a) Initialisation of UIj FA and DA ^tenttae new relation is 
encountered. 

(b) Testing relation name, if a relation with sane nane 
has earlier been defined-give an error nessage. 

(c) Increnent the pointers. 

(d) Allocate a suitable device nunber, depending on hovr 
nany relation have been defined so far. 

(e) Maintain on index of the relations on a porticiiLar device 
and thefe relative location, 

4-2.3 Subroutine ICOF ; Since DMD language coimands are read in 
A2 fornat, subroutine ICOF is used to convert integer values read in 
A2 fomat to 15 fom.nt for manipulation of integers. In TDC-316 in 
A2 fomat AB is stored as BA; each character occupying 8 bits. ICOF, 
unpacks the characters and depending on their codes works out the corres- 
ponding integer value. 

4-2.4 Subroutine IPIDS ; The flow chart for subroutine IPLDS is 
given in Figure 4.4. The subroutine performs the following fixnctions: 

(a) Increnent s pointer both for FTAB and EFDIR. 

(b) Testing, whether the iten or field nane has earlier 
been defined to enter the proper FLDID. 

(c) If it is a new field nane a fresh FLDID is allotted and 
record kept in FTAB which helje as Data Dictionaiy, 

(d) !Hae type of fomats used are given below: 

Format: ALphanumeric Code Integer Code 


15 

10A2 

30A2 


IF 

AF 

AD 


1 

2 

3 




figure 4.4: Subroutine IUDS Plovychnrt 
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(e) Appropriate type is recognised and corresponding entry 
nade in ES'DIR. 

(f ) Considering the type of applications it was felt that 
any information could be converted into the above three 
formats vs/ithout any loss of information. 

4-2.5 Subroutine lOPT ; This is a general purpose subroutine to 

provide all types of input and output facilities on different: devices. 

TDG - POHrMST provides a very flexible N-Pormat, vhich has been used to 

provide any combination of IST, AF or AD formats BUDB'(l0,40) is the 

system buffer used by this subroutine.. The same subroutine is also used 

in Data Sub language routines for input/output facility. Thus the routine 

also tests, if your level corresponds to read only or both read and write 

access. If a read only user wants to write in the data base - an appro- 

and 

priate error is indicated/access terminated. 

4.3 Data Sub language Program Modifies 

As brought out in Chapter III, data sub language for the relational 
DBMS consists of a number of utility routines, search routines and data 
manipulation routines. Figure 4.5 indicates the various subroutines #ii(±i 
can be called from users program after the data base heenbeen opened pro- 
perly. By and large the routines cover the various feature of DSl AlPHA, 
a sub language suggested by CODD - based on relational calculus, let us 
discuss each of the subroutines in details. 

4-3.1 Subroutine OPEF s This is the first routine vtiich must be colled 
by the user before he can work with the data base. Figure 4.6 gives the 
flow chart’ of the subroutine. Its main functions are: 



START 


“-r'" 

'V- 



i^guro 4.6: Subroutine OSM floischart 
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Figure 4 #5 Data Sub language Routines and their 
inter c onnecti on. 

(a) aringpall the systen tables fron system area to the 

main meiaoryy since this works independent of DMD 
Analyser. * 

(b) Asteuser for this access QOde and level for validity# 

(c ) Checks level and flags viien he is a Read only user# 

(d) For other search and utilities routine, there is a 
reguirement to find at least one coiamon field between 
any two relations. If there is no comaon field - the 
particular relation cannot be i:sed in continued queries 
involving two or more relatiorr. lo avoid time wastage 
in other routines a coomon field relation matrix MCFR is 
prepared after checking comor. items in all the relations 
requested by the user. 

(e) The system table and MCF'E are stored on disk for subsequent 
use. 
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]?igurci 4.7: Flowchart Subroutine GETO. 
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(f ) User is given various EEDID^s and. his IjaveH and asked to 
continue usage of the systen. 

4-3.2 Subroutine GETO ; This subroutine provides a particular record 
occurrence or tuple once the relation ID, tuple nunber and rewind option 
is specified. Dlow chart of subroutine GETO is given in Figure 4.7. The 
working/functions of the subroutine are: 

(a) locate the Relation ID in RTAB. 

} 

(b) Find fron the index on vshich particular device (dRO) - this 

relation is stared. : 

j 

(c ) On that device find the first relation and its paraiteters 1 

like HI, NA, DA. 

(d) Traverse all relations in sequence till desired relation 
beginning is achieved. 

(e) Khovd-ng the disp3?cenent of the tuple being lEO traverse 
till the desired tuple. 

(f ) Output tuple in user's work area. 

(g) Depending on position of rewind flag - rewind the device 
before returning. 

4-3.3 Subroutine GETF : Oliis subroutine is an extension of subroutine 
GETO, which obtains a partic-ular tuple in a relation. The present sub- 
routine finds cut position and fomat of the desired iten/fidd, whose 
ID has been specified. The flowchtxrt of the subroutine is given in Figure 
4.8 and is self explanatory. 

4-3.4 Subroutine GETR ; This is a basic subroutine which outputs a 
conplete relation once relation ID has been specified. Sane function 
could be achieved by using GETO till all tuples of a relations are 
obtained. Here the relation ID is located in RTAB and the index is 
searched to locate relation on disk. Once allocated, it is outputted. 























START 



M-iJure 4.10: Subroutine G-ETU IR owjhart . 
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4-'^ .5 Subroutine Q-ETV ; This is a very useful routine for inverted 
file type of queri4^« The subroutine scans a particular given field/iten 
of a relation for the given value,. Once the natch is obtained, in the 
given field the corresponding value of the required field is outputted 
according to correct format, Hgure 4,9 shov® the flow chart for the 
routine. Extensive use of other routine like GETP, GETO, BSERCH is made 
in this routine to reduce tine in achieving a natch. Condition can be 
set in the subroutine to ensure first value output or all valu^neeting 
the requirement . In case of no natch of the given value a flag is set and 
an error message is given to the output, 

4-3,6 Subroutine GETU ; GETU is one'^he important routines viiich 
outputs a nuiaber of different fields in different relations required 
by the user based on the princry key of the first relation. This is 
unqualified GET routine #iere no conditions are required to be matched, 
Eigure 4-10 gives the flowchart for the subroutines. It extensively 
uses other routines like GETP, GETY for finding various values. The 
relation ID's and the corresponding fields are required to be stored in 
two arrays prior to using the subroutine. This type of tables may be 
required when a particul.ar report is required to be generated. 

4-3,7 Subroutine GETQ ; Oliis is the most complex of all' the search 
routines. It outputs a number of fields/items in different rel.itions 
of target subject to qualification fields satisfying a particular condition. 
Six relational operators conditions are used as operators for matching 
values. Extensive use of earlier routines GETQ, GETY is xaade. Common 
field matrix is used for moving from one relation to the other. The 
output is arranged according to the^ primary key of the qualification field. 
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The flow chart for the subroutine is given in Figure 4.11 clearly indi- 
cating the variable arrays in which interim values are stored. 

4-5 «8 Subroutine BSEAH3H ; This is a general purpose binc.ry search 
routine used for matching the key values whenever there is a sorted table. 

The algorithm is based on D.E. Khuth's^^®^ algorithu. none of the table 
and its upper limit are required to be specified along with the key value. 

The index value is outputted by the routine. 

4-3-9 Subroutine lOPT : This is the routine which is also used in 
nCD analyser and has been covered in IJ.J, 

4-3. 1£) Subroutine IIT.'CP : To ensure data integrity there nay be require- 
ment of taking D11I,CP at regular intervals or whenever a fatal system error 
occurs. DUMP is a privilaged subroutine which can be called by DBA or 
system users with level upto 10 only, to ensure data security. Flowrohart 
for the subroutine is given in Tlgure 4.12. The system automatically outputs 
the current contents of all system tables and MGiTi. By using subroutine 
GEHlall the relations opened by the user are outputted as DUt/D?. Eron 
DUMP it should -be possible for a system anolyst/DBA, to rectify error. 

4-3.11 Subroutine OlOSE : This is the last routine vMch hser must 
call, once he has completed use of the data base. Ohis is in a way con- 
plinentary to OPEE, The user closing the data base is checked for autho- 
risation. ill temporary locations and the users work area are initialised, 
thus making the system ready for the next user, 

4—3.12 Subroutine ADDBED i ADIHEL is one of the data laanipultion 
routines which adds a new relation during routine. is also a privilaged 

routine which can be called by DBA or system onalyst ^th level less than 10. 
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Pigure 4.12: FloTOhart far Subroutine DI]1»!P 
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The entire data required has to he available in user's work area including 
none of relation and nanes of various data iten/fields. Plow chart for 
the subroutine is given in Pigure 4.15. The subroutine searches for 
■an earlier deleted relation 7d.th siniliar or less spc-ce reSuirenents. If 
found it stores in the sane DUO, otherwdse fresh area is located at the end 
of a].l dec's and the full relation is stored. Relation none is entered 
into RTAB and new? field/iten none in PTAB. EPDIE is updated. Once the 
relation details are cmaiSIcded permanently the systen area tables should 
be rewritten. This is done by subroutine CLOSE. 

4“3.13 Subrou tin e ADDREC ; Khen DIffl is originally building the data 
base iQlt extra storage; location is kept reserved for any additions at t'le 
end of a particular relation. The overflov; is worked out as 

rOPL = ICDC/lO + 1 EDO = Eumber of tuples in the relation 

lOPl = Extra storage or overflov/ area 

and the area, is stored with zeroes for integer fields and blanks for 

alphanumeric field, ?dienever a tuple is to be added to the relation the 

availability of overflow area is tested 5 if full error message is given; 

else the tuple is pi reed at the end of the relation. The flow chart for 

the subroutine is given at Eig;ire 4,14. If overflow area is full in a 

number of relationsj DM is required to regenerate the systen by using 

HID nodule. Once a record is added the RTAB should be revaritten on systen 

area. This is done by subroutine CLOSE. 

4-3.14 Subroutine DELTHL: This is also a privileged data manipulation 
subroutine is alloTOd to DBA and level below 10, flowchart for the sub- 
routine is given in figure 4.15, After checking authorisation for the 
subroutine - DEO and other parameters of the relation to be deleted are 
obtained from RTAB index entries, a&e entire disk space of the relation 
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Figure 4.14: Flowchart for Subroutine ADDIUiC. 
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Figure 4 *15 I Flowchciii: for Subroutine DELTHL 
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is blaniced. The index is updated to include the deleted area in AVAL 
list. RTAB is accordingly areonded. PTAB is t’y deleting 

all itens which are not refererced/reqxrLred by any other relation in the 
data base. Similarly KPDIR is corrected to incorporate changes in the 
data base. After all the modifications are incorporated,! o the cjaended 
system tables should be revn?itten in ^stem areaffor us&', using CIOSE. 

4-3.15 Subroutine EIDYREQ : This subroutine cajcti modify any tuple 
or field in the data base. If the record is to be deleted it is replaced 
by zeroes and blanks in their appropriate positions integer field reploc'ed' 
by zeroes and alphanumeric by blanks. The flowchart for the subroutine 
is given in Rigure 4,16. The existing vrlLue is chocked with the now value an 
if both arc identical, no further a,ction is to.ken. The occiurrenco is to 
be modified is brou^t into buffer and modified) as desired by the user. 

The same is rewritten using lOPT. In all data manipulafion routines, 
subroutine OETO with non-rewind option is used to reach upto the desired 
occurrence for modification. Once the action is compl--te the appropriate 
DWO is rewound. 



CHAPTER V 


SYSTEI',I PESEOHMCS EVALUmOH 

5 .1 General 

An experimental relational DBtlS as an extension to POETRAH has been 
inpleniented on TI)G-316 o.t Indian Institute of Technology, Kanpur. As 
indicated in Chapter IV, the inplenentati on has been achieved' in two 
independent nodules - the D1.ID Analyser and DSL including JML and utility 
routines. The program listing has been attached at Appendix 'B'. For 
system performance araluation live data from two different defence labo- 
ratories has been used avoiding any classified information. The system 
has been tested for 11 different relations having variable record lengths, 
formats and record occurrences. In the absence of axy existing working 
system, the system performance has been discussed in absolute terms; rather 
than any comparative evaluation, 

5 . 2 Sai'jple Outputs 

5-2,1 DtID Analyser ; A saLiple output of DMD analyser nodule on the 
teletype is shown in Table 5.1. The building of the relational data base 
is done by the data base administrator so DBA code has to be matched. 

Once the authentication is completed the BHD Analyser asks various ques- 
tions regarding the layout, formats, length of each relation and guides 
the DBA to proper generation of the system. A hard copy of the relation 
generated is kept on Device 6 (Printer in this case) for reference of the 
DBA. Once all the relations are conpletecf and lEHD card is sensed; the 
various system data structures like RTAB, BTAB and EEDIR are displayed for 
verification by the DE/i., The system tables are stored on 1he ^stem 
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lU.! I HAVU YOUR IDSHTIFIGiiYIi'W milSE? Y^OLCOIIO SIR I 
m 1 BUILDinO A EOLATIOlRiL DATA BASE DOR DRDO L.A 3 S 


DBA AUTSORISED CCTDE — 


PLBAiSii; ^IVE RELATI RI DEFIITITIOI AS RELII ITAIS A.C? 
RELM PRQJ AB 

EIEED DEEIHITIOI AS BEDS iTA!IE IN OR AIT OR AD 

AT EFD GIVE NO OE DATA C.TRDS AS DATA XX 4 BLANIS 

EIJDS CODE IN 

ELDS ^'RIIO IN 

ELDS TYPE IN 

ELDS NAIE AN 

ELDS LaB an 

ELDS PPNO AN 

D:/:.TA 10 

PLAICE 1 o’ DATA CARDS IN GAUD PJJADEEl 
IS IT .ALL? GIVE lEHD CARD ELSE GIVE rtlLN CARD I 
REIN PROG Aj.3 
ELDS CODE IN 
ELDS POSN AD 
DATA 10 

PLACE 10 DATA CARDS IN CARD RAEiDERl 
IS IT .ELL? GIVE lEND C/uRD APLSE GIVE RELIT CARDS 
lEiTD 

ALL RAILATinN m DATA BASE 


COIPrENTS OE RTA 3 
IPROJ 4 1 A 33 10 3 

2 PR 0 G 4 T 3 AI 3 10 1 

ITUIBINl OE SITTRIES IN TABLE 


3 0 
0 1 



CONTENTS (3? ETAB 

ELDID 

NB'IE 

EORI'MT 

1 

CCDE 

1 

2 

‘Tend 

1 

3 

TYPE 

1 

4 

NAI-IE 

2 

5 

LiiB 

2 

6 

PRNO 

2 

7 

POSN 

3 

NUT.IBER OE ENTTJ; 

CS IN TABLE 


( 

I 


t 

i 

S 

f; 

I 

2 ^ I 


7 



CSl'TTENTS OE 

BPDIR 

RELID 

ELDID 

EORILYD 

1 

1 

1 

1 

2 

1 

1 

3 

1 

1 

4 

r-, 

C. 

1 

5 

2 

1 

6 

2 

2 

1 

1 

2 

7 

3 


NDIBER OE ENTRIES 

IN TABLE 


PI, ID AIL'ILYSER COM PLETED 


Table 5.1 : Dlffl Analyser Sample OUTPUT on TTY. 


( 
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USER t IDEUTIE'Y ACCES CODE IH Ag. AHD EEVEL IN 12? 

AB01 

HOW MANY EELATIOIH YOU WOULD BE USING? 

08 

RELATION NAME IN 2A2 EORMAT PLEASE? 
PROJPROGDATSPCODEUNDPAGNECENPREC 

AB AUTHORISED USER LEVEL, i 

HERE ARE RELATIONS ID 


RELID 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


NAME 

PROJ 

DATS 

POOD 

PROG 

FUND 

PAGN 

PRBC 

EOBN 

PRTY 

MANU 

RKCD 


OPEN TEST COMPLETED 


READING PROM DEVICE — i WRITING ON — 1 
11 1 1MPROVE PA EADAR150LRDE BANGALORE 3L-PX-67AKD-32 

TESTING WRITE PROTECTION POR USER CODE ~ 51 
SORRY I YOU ARE NOT ALLOWED TO WRITE IN DB ! 


lOPT TEST COMPLETED 


Table 5 #2: Sample Outputs OPENAND lOPT 



GIVE LOCATIOF OP RELID ~ 2 IN RTAB ? 
EELID 2 MATCHED IN RTAB AT — 2 


BSEARCH TEST COMELETED 


GET EEC OCCUEEEICE — 4 OP RELID — 1 REVflVD 1 
4 0 2 OS ASS POE PMO?/ MADLEDE BANGAIOEE ED-P1-69AK1>-84- 

GET REG OCCURRENCE ~ 6 OP RELID — 3 RE\VND 0 

IOOIC^AEOE WS C42 

GETO TEST COMPLETED 


GET 5 PLBID OP 1 EELID 6 EEC OCCURRENCE ? 

GET® OP — RID - 1 ZED 5 PEOSN 14 EOT 2 
GPA POR WS G42 


GETZ TEST COMELETED 



Table 5.3: Sample Outputs BSERCH, GETO AND GETP 
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device 16. Thus once DMD An.hlysGr work is over the nodule can be thrown 
out of the systen. 

5-2.2 DSL Module ; This is the uain nodule of DH.IS for users applica- 
tion and consists of nain prograa cjid 15 different routines. The outputs 
of the inportant routines are given in Table 5.2 onwards. 

(a) OPEM/IOPT ; As shown in Table 5.2 after verification of 
the user code and level the nodule questions the user on 
nunber of relations required, as well as their nones. User 
level is verified for Read/Write option. Once the user's 
identity is confimed, the nodule generates the connon 
natrix MCER for use by the systen. lOPT output for two 
coises is also shown, 

(b) BSEARCH/&ETO/ SETE ; The sanple outputs of the three routines 

given in Table 5.3. Once relation I® is specified the 
routine BSEARGH -locates the portion of the relo.tion in RTAB. 
GETO is the nost comonly used routine, which outputs a parti- 
cular record occurrence once Relation ID and occurrence position 
with respect to beginning of relation is specified. In the 
sanple output first relation I^Hsccurrence with Rewind and third 
relation 6th occurrence without rewind were required, GETE 
provides a particular field (iten) value one relation ID, 

Eield ID and record occurrence iSi^s^mSnd In this case 
tlha'''! 0.I.3J third field fron first relati n and 6th occurence 


was required 



6 ^ 


GET ELDID == 6 PROM REDID 1 TOERE VALUE PID == 5 
DEED HIDERABID 

SL=PX=66/DLE=18 
ED=P1 =67/DLE=24 
SA=PX=67/DLR=26 
SI]-=P1 =68/DEE=28 

Srr=P1=68/DLR=€9 


GETV TEST COMPLETED 


GET Y®OLE RED ATI OR WITH ID == 1 

0011 000 1 1MPROVE PA EADAE1501LEDE BARGALOEE SL=PX=67/DRD=32 

00020000 02PVCOTD0PILER RADAR LRDE BARGALORE ED=P1=68/DED=76=2 

0003 2DIG RADAR DISPLAY EQLEDE BARGALORE RD=P1=72AKD=83 :1 

0004 2 CS ASS POR PMGl RADIRDE BARGALORE RD=P1 =69=/LED=84 

0005 2C0BS IRT CIR OP RADALEDE BARGALORE ED=PX=70AEL=91 

1001 1GPA POR V7S 042 DLRL HYDERABAD SL=PX=66/DLR=18 

1002 2 DP AREAIL HP BARD DLRL HYDERABAD RD=P1 =67/DLE=24 

1 003 4HP L9& periodic AiS DLRL HYDERABAD SA=PX=67/DLR=26 

1004 8BB HIGH POYfflR TX DLRL HYDERABAD SR=P1 =68/DLR=28 

1005 8HP MOROCORE AREIL DLRL HYDERABAD SR=P1 =68/DLE=29 

GETR TEST COMPLETED 



Table 5 .4 : Sample Outputs GETU ARD GETR 
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PROM RELATIONS ID'S ~ 1 2 3 
G-ET VALUES ELDID’S — 3 1 10 


RELID 

ELDID 

IRO 

EOEiaT 

VALUE 

1 

3 

1 

1 

1 

2 

1 

1 

1 

1 

3 

10 

1 

2 

TOTE DISPLAY RADAR 

1 

3 

2 

1 

2 

2 

1 

2 

1 

2 

3 

10 

2 

2 

El^/CVCPDOPELER RADAR 

1 

3 

3 

1 

2 

2 

1 

3 

1 

3 

3 

10 

3 

2 

DIG RADbAR DISPLAY EQ 

1 

3 

4 

1 

2 

2 

1 

4 

1 

4 

3 

10 

4 

2 

OS ASS EOR EMCW RAD 

1 

3 

5 

1 

2 

2 

1 

5 

1 

5 

3 

10 

5 

2 

COBS INT CIR OE RADA 

1 

3 

6 

1 

1 

2 

1 

6 

1 

1001 

3 

10 

6 

2 

GPA EOR WS' 042 

1 

3 

7 

1 

2 

2 

1 

7 

1 

1002 

5 

10 

7 

2 

DE AREAIL HE BAND 

1 

3 

8 

1 

4 

2 

1 

a 

1 

1003 

3 

10 

8 

2 

HP LOG PERIODIC ANT 

1 

3 

9 

1 

3 

2 

1 

9 

1 

1004 

3 

10 

9 

2 

HIGH POl'yER TRANS 

1 

3 

10 

1 

3 

2 

1 

10 

1 

1005 

3 

10 

10 

2 

HE MONOCONE AREIL 



G-ETU TEST 

COMELETED 



Table 5.5 s Sample Output G-ETU 




GIVEU EELID - 

~1 ELDID - 

- 1 

VALUE 

— 

1001 



GET VALUES OE ELDIDS — 

3 

1 


10 



EROM RELATIONS IDS 

1 

2 


3 


GET(S 

OP ~ RID 

1 

EID 

13 :: 

LOrOR 

6 

lEOT 

1 

GETQ 

OP— RID 

2 

1 

EID 

1 

lOR 

6 

lEOT 

1 




1001 







CP— iPI'P- 3 '■ ' 

Lj 1 

0 ^.OE 

'0 





GETQ 

OP - RID 

5 

EID 

10 

lOE 

6 

lEOT 

2 


GPA EOR WS 

U42 

- 



• 

- 



■GETQ-TEST COlvCELETED 


Table 5-6; Sample Output GETQ 
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EECOED TO BE ADDED IN EEILID ~ 2 EOLLOVfS 
10101 101010101 1010 
TESTING lOR— 11 IN RELID — 2 


10101 ■ 

101010101 1010 



ADDREC TEST COMELETED 


MODIEY RELID— 1 ELDID— 5 lOR— 3 AS BELOW 

DIRL HYDERABAD 


3 0 

2DIG RADAR DISPLAY EQLRIE BANGALORE 

RE-PI -72ARI)-83 

30 0 

2DIG RADAR DISPLAY EQDLEL HYDERABAD 

TESTING THE NEW VALUE USING GETE 

DLEL HYDERABAD 

ED-P1-72AHD-83 


MDYREC TEST COMPLETED 



Table 5 .7 : Sample Outputs IDDEEC and MDYEEC 
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G'E7V/ GETR ; Table 5.4 shows the output of GETV routine. This 
is a very powerful routine vtiich aatches the desired relation 
for a particular value and outputs a corresponding field. In 
this case none of laboratory vsas givoildas SlEIiaHy'doia^hdi'' 
andlfsfi^jectuhpmberssv/breiproCiuiredlJ'r^m^'SxLctibfiar^DifXj' •;i)i:..’.5Ar;' . 

GETS outputs a ccciplete relation as it exists in the secondary 
storage. Eolation with ID as 1 has been chosen in the output. 

(d) GETU : GETU comand outputs , the desired fieltfefron different 
relatior^. In Table 5.5, third field of first relation, first 
field of 2nd relation and 10th field of 3rd relation have been 
outputted based on first raentioned field as prinary key. 

(e) GETQ : This is the nost coaplex routine which outputs the 
desired fields froa different relationsonce the condition of 

a particular field is satisfied. In Table 5.6 the soiae fields 
of GETU have been outputtej. such that their Project ID is 1001. 

(f) ADDREC/lIPyEEC : Hiese are the privileged Dfflii routines Y/hidi 
add a particular record at the end of the desired relation or 
nodify a particular field in the specified occurrence. The 
outputs of these routines ore given in Table 5.7. 

(g) ADDEEL/DELTEL : Table 5.8 gives the output when a new relation 
is to be added at the end of ail relations and also if the 
relation is required to be deleted JThvSfeauafffi i privilaged routin,® 
allowed upto user level 10. It may be noted th :.t system tables 
are extensively amended by both routines. The modified tables 
are stored on system area using CLOSE. 
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(ii; PUIfP/CLOSE; These are the utility routines v/hose sample 
teletype outputs are given as Table 5.8» The routine DUTIP 
outputs :all systen tables and the contents of all relations 
used by the users. This output is given on printer. The 
GIiQSE routines initialises all the buffers, the systen 
devices and restores the systen area for subsequent use. 

This routine is ccnplenentry to OPEiT, 

5 .3 Evaluation of Systen Developed 

Sone of the important paraneters for evaluation of any IMSS are 
integrity, security tine for response and recovery facilities. In 
niniconputer environnont the nenory used is also an inportsmt considera- 
tion. fhe perforiaance of the systen has been discussed belov; foi' their 
vital paraaeteo^ 

5-3.1 Integerity and Accuracy : The systen, being EOETRAF base(^ has 

inherent integerity as ai:iy error in the type of data is autona,tically 

deieotsd. In the routines developed additional hard copy of entire 

♦ 

transactions is kept on Device 6 v*ich could be regularly monitored to 
detect any nolfunctinning. Taking Dni!=IP nay also help in detecting any 
errors as such a separate DUMP routine ho.s been provided. In all the 
runs, a very high degree of accuracy in reproducing data ms observed. 

The systen is as accurate as any EOETEAII systen. 4 ' 

5-3*2 Security ; In the systen developed each relation has been 
provided with a two characters security code, viiich has to be matched by 
every user before he can access the data base. In addition each user is 
also allotted a level between 00 and 99 to ascertain his priority; Bestric- 
tion on use of any routine by a, particular level can be enforced., In the 
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present systen all users having level greater than 50 can only ESAD 
fron data base^ Users having level less than 10 can use the privilaged 
routines ADDEEC5 mYSEG, ADDRED and BEITRl. In case of any unauthorised 
use the user is stopped and a v/arning is given fn the teletype, Thus 
security and privacy have been ensured to a large extent, 

5-3,3 line for Responses 

Analyser ; The systen was used to generate 11 relation 
ha,ving various record occurrences upto 15, The entire data 
nodel definitions was conpleted within 5 ninutes. 

_(b) DSL Routine ; In the a.bsence of in built clock, the tine 
of response was neasured using stop watch. The liniting 
factor in nost of the queiLieis;3 was the teletype speed, 

ETorcinl quer^iiass regarding a single entity were answered 
within 5-10 seconds. Ilien the entire relotion is to be 
notched and different fields are to be outputted as in, GETU 
it hakes longer tine. Similarly in adding records/nodifying 
record the tine is around 5 seconds. Routine like DUICP, 
ADDREL take 5-5 ninutes depending on Data base contents. 

In the type of usage envisaged the response tine is fairly 
satisfactory, 

5-3,4 Menory Utilised ; TDC-316 configuration at IIT Kanpur has 

available nenory of 28K words (l6 bits). In RORTRAET, the run tine routine 
including KDII and IOCS take around 10. 2K, thus heaving only afjproxinatoly 
18K vrords for the systen development . DI/ID Analyser designed took approxi- 
nately 11K word of nenory. Since the nodiuLe is to work independently so 
effort was made to reduce nenory usage. The DSL and DHL routines including 
utility routines together occupy about 16K word including 2K word user 
buffer area. Considering the features supported this is fairly econoniical 
in nenory usage. However, the nenory used could be reduced by using 


BAL-316 
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5 Oo^straints of the Systen Developed 

Sone of the constraints, vtiich are nomaJLly present in any FOETEAST 
programing are also present in the software developed. Considering’ the 
tine and nenory available the follovdng constraints are specified. 

(a) A nocanun of 20 relations coin be genero.ted at one tine. 

(b) I/hxinm fields (distinct) can be upto 40. 

(c) Itud-oun entries in RI'DIR should not exceed 50, 

(d) I/fcixiaun length of o,ny records cannot exceed 80 colunns, 

(e) Only extra. sp.:i,ae is catered for adding new recorfe 
In case of excess the DlID has to be redone. 

(f ) Ihe inpat'ocar.d^ are fixed f ora.attu3d and not extra blanks 
■are tolerated. 

Most of the constraints are dependent upon the dimensions and as such 
can be easily modified, if required, in any typical application. As it is 
the system is fully workable for any scientific or business mini data base. 



CHAFfER VI 


SCOPE POE PUETHER YTOEK AMD CONCLUSION 


6 .1 Simraary 

Poi' Inplenentation of data base mnageaent systeia on TDC-JIS, the 

relational appro och was adopted, prinarily for ease of handling noma- 

lised relation, POETEAN language was chosen for systen developnent 

availability of a good 

because of its popul.arity and itherjj^nt subroutine structure. A sinple 
fixed fomat data nodel definition language vra.s used to provide eo,se in 
building the data base for the data base adninistrator. Only three basic 
types of data structures (integer, 20 characters alphanuneric and 60 
characters alphanuneric) were included in the design, as these would neet 
uost of the requirements of data processing. The various facilities for 
retrieving, adding, deleting and nodifying data have been provided by a 
set of 15 data sublanguage and data nanipulation languoge routines. 

6 . 2 Difficulties in Inplenentation 

One of the najor factors in linitirg the design of DHIS has been the 
United run tine nenory available. (Only 18K in POETEAN on TDC-316 at 
IIT ICanpur), Every effort has been node to make the system as general 
as possible within the available nenory. The other difficulty lias been 
the reliability of TDC-316 computer , systen, especially the peripheral 
devices. Iririce printer, disk and teletype were often defective, resulting 
in considerable loss of tine in proving system software. In“ case the 
present ecxperinental system has to be made ccoaencial; the reliability 
of the TDC-316 will have to be improved. 
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5 o3 Rec Mnei-aat-'.ons for Further Yfork 

The mder ncntioned work is suggested to follow up the successful 

inpo], orientation of tlje relational DBfIS: 

R ota Val-i datl on : In the present systen data validation 

is done by RORTRAR run tine routine which gives error 

riessago on detecting wrong type of data. However, there 

is requirenent for sone general purpose data validation 

routines to inprove the systen integrity and accuracy. 

(b) In teract j.ve Working ; DMD nodule has been nade conpletty. 

interactive, whereby DM is guided in building the data 

been 

basoc Dialogue on teletype has^incorporated ft)3? opening of 
the data base. It is recconended that a general nain 
progi'an using all these routines be nade whereby an ordi- 
na-ry user is questioned on his requirenents and the 
appropriate routine is chosen for meeting his needs. 

Dj-sk Operating Systen; KDM-316 version I with sene nodi- 
fications has been incorporated as data base ccntrol systen, 
K)IL Hyderabad has recently announced their Basic Disk 
Operating System. Similarly a nore efficient DOS is being 
developed by TIRR, It is suggested that efforts ^ould be 
nado to integerate these disk operating systoas with the 
present softwaro. This will cut down the response time and 
improve the efficiency in disk utilisation. 
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Pnfornatted Transfer of Data ; TDO-POEO?RAlir does provide a 
facili-ty for transfer of 'unforaatted data. In such case 
the transfer of data between various devices/buffers will 
becone nore efficient. The feasibility of incorporating ■ 
the sane nay be studied. 

(e) General Purpose Software : The existing softwa.re has 
certain nachine dependent feature to.aake it nore effi- 
cient for the TDC-316. The software can be nodified to 
laake it general purpose and thus transportable for any 
nachine . 

(f) 33?IF Relation s; In the present inplenentation, it is assuned 

rd 

that the relation is in the 3 Nomal Pom. Sone algorithn 
can be developed to pptinise the nunber of nomalised rela- 
tions in any data base, once the raw data is nade available, 

(g) Other languages ; The relational approach has been inplenented 

both in FORTRAN and It na.y be worthvfcile 

designing a hybrid systen based on fORTEAN and BRASS (tIPR 
version). Such a systen will have the advantages of both 

an assenbly language and a M^er level language. 

(h) 0th er Appro ache s ; COBASHi and HIERARCHIC A1 approaches nay 
also be inplenented in FORTRAN, so that a ccnparative evalua- 
tion of on the three approaches can be attenpted. 


) 
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5-4 Conclusion 

The inplenentc-tion of a relational data base nanagenent systen 
as on extension to POHIHAN has been successfiiLly ccnpleted. The systen 
soft?/oa'‘e developed; though experinental, can be inplenented in its present 
:loixi in any organisation having TDC-316 conputer systen. 




REPEREHCES and BIHLIOGRAIHY 


1. IiJartin, J., " Principles of Data Base Management" , Prentice-Hall, Inc., 
Englewood Cliffs, H.J., 1976, Chapter 1. 

2. Engles, R,\¥», "A Tutorial on Data Base Organization", Annual Review in 
AutoDatic Programing, Vol, 7, Part 1 (edited by Halpen and McGee), 
Preganon Press, July 1972.. 

3. Ery, J.P., and Sibley, E.H,, "Evolution of Data Base Management Systems", 
Computing Survey. Vol. 8, Ho. 1, March 1976, pp. 7-42. 

4. Ifcrtin, J*, " Computer Data Base Organization", Prentice-Hall, Inc., 
Englewood Cliffs, H.J., 1975. 

5« Date, C.J,, "An Introduction to Data Base Systems" , Addison-Wesley 
Publishing Company Inc,, Phillipines, 1975. 

6. Haseman, W.D,, et. al,, "A Partial Implementation of CODASYL DBTG 
Report as an Extension to EORTRAH," Management Datamatic, Vol, 4, Ho, §, 
October 1975, pp. 75-97. 

7. Tsichritzis, D.C,, and E.H. Lochovsky, "Hierarchical Data Base Ifanagement 
A Survey", Computing Survey. Vol. 8, Ho, 1, March 1976, pp, 105-123. 

8. "CODASIL DATA BASE TASK GEOHP", April 1971, Report ACM, Hew York. 

9. Codd, E.E., "A Relaticnal Model of Data for Large Shared Data Banks", 
Ccxmunicatlon of ACM, Vol, 13) Ro. 6, June 1970. 

10, Chamberlin, Donald, D., "Relaticnal Data Base Management Systems", 
Computing Survey. Vol. 8, Ho. 1, March 1976, pp. 43-66, 

11. Codd, E.E., "A Data Base Sub Language Bounded m Relaticnal Calcilus", 
Proc. 1971 ACM-SIGFIDET Workshop on Data Description, Access and Control , 
Hov. 1971, ACM, Hew York, 1971, PP* 55-68. 



76 


12. Stewert, J., and J, G-oldoan, "The Relational Data Management System : 
a Perspective", Proc. ACM-SIGMOD Workshop on Data Description Access 
and Control, lay 1974, ACM, Few York (l974), pp- 295-3 20, 

13. Eracchi, G-., A, Pedeli, and P, Padlini, "A language for a Relational 
Data Base,” Sixth Annual Princeton Conf . on Infomation Sciences and 
Systems. March 1972, Princeton IMiversity, F.J., 1972. 

14. Pehder, P.I., "The Representation Independent language", IBJ/I Research 
Report RJ 1121 and RJ 1251. Son Jose. Calif .. Fov. 1972 and July 1975 
respectively, 

15. Astrohan, M.H, , and D.D, Chnnberlin, "Implementation of a Structured 
English Qaery language". Communication of ACM, Vol. 18, Fo. 10, 
(Octohen-4975 ), pp. 580-588. 

16. Todd^S,J.P,', "Peterlee Relational Test Vehicle PRTV, a Technical 
Overview", IBM Scientific Centre Report JKSC 0075. Peterlee, England, 
July 1975. 

17. Whitney, V.K.M., "EDMS a Relation Data Management System", Proc. PoTxrth 
International Symposium on Computer and Information Sciences, (COIFS IV ) 
Dec. 1972, Plenum Press, Few York, 1972. 

18. Boyce, R.P., D.D. Chamberlin, W.P. King, and M.M. Hammer, "Specifying 
Qierries as Relational Expressions : The SQJARE Data Sub language", 
Carmunioation ACM. Vd. 18, Fo, 11 (Fov. 1975), PP. 621-628. 

19. Chamberlin, D.D., and E.P. Boyce, "SEQDIL : A Structured English Ckery 
. language". Proc, ACM-SIGMOD Workshop on Data Description^. Access 

Control, May 1974, ACM, Few York, 1974, pp. 249-264. 

, ' , ' .. . , # 



77 


20. Copland, G.P., and S.Y.Y/. Su, "A High Level Lata Sub Language for 
Context Addressed Segment Sequential Menory", Proc. ACM-SIQ-MOL 
Workshop. May 1974, ACM, Hew York, pp. 265-276. 

21. McDonald, N. , and M. Stonebraker, "CDPID : !Ehe Priendly Jliery; Lax^age", 
Proc. ACM Pacific 75 Regional Conf.. April 1975, ACM, Hew York, 1975, 
pp. 132-139. 

22. Zloof, M.M, , "Qaery by Example : The Invocation and Definition of 
fables ard Poms", Proc. International Conf. on Very Large Data Bases , 
Sept. 1975, ACM, Hew York, 1975, pp-1-24. 

23. Codd, E.P., "Recent Investigations in Relational Data Base Systems", 
Information Processing 74. Proc. IPIP Congress, August 1974, Vol. 5, 
Horth-Holland Publ. Co., Amsterdam, fhe Hetherlands, 1974, pp. 1017-1021, 

24. Shaman, G.C.H., "A Hew Model of Relational Data Base and Hi^ LeveL 
Languages", fechnical Report fRI 2.136, IBM Huskey Park Laboratory. 
England, Peb., 1975. 

25. EGIL-Hyderabad, "TDC-316 PORTRAH", 1976. 

26. Knuth, D.E., " Art gf Computer Programming Vol. Ill - Sorting and 
Searching" , Addison-V/esley, 1975. 

27. Shama, R.K, (Major), "A Personnel Data Base Retrieval System", ILfech. 
fhesis. Computer Science Program, IIT-Kanpur, July 1977. 

28. Makherjee, A.E,, "Data Validation and Hormalizing for a Personnel 
Data Base Built on the Relational Apriroach". M.fech. fhesis. Computer 
Science Program, IIT-Eanpur, July 1977. 

29. Ghanekar, D.K., "A Relational Implementation of Data Base System", 
M.feoh. Thesis, Computer Science Program, IIT-Eanpur, July 1977. 



AlPEiroiX 'A' 


PATCHES IH RUIT TIME GOITEOL EOUTIHES FOR TDO POETRiUT 


Ch.:mges incorporated in EC Routines 


*043054 — 00350 IMS PC, GETPST 

56 042502 

*043100 — > 003050 Ho open : JMSi, PC, GETBOT 
102-— > 042546 
104 — ->100 
106 — -> 100 


*042546 ■ 
50 . 
52 
54 
56. 
60 
62 
64' 
66 . 
70 
72 
74 
76 


050210 GETBOT ; BCMP 
-> 15 

-> 011410 ERGT 1^20 
->121050 TSR/62, @16464 

> 62 

16464 

121050 TSR / 1, @ 16466 

— ^ 1 

-> 16466 

-> 250 JMP RITEB 

--7 43002 

-> 050210 BCMP 14 
-> 1 6 


R2y^ 13 


Bl 


*042600' — >. 011407 BRGT, +20 

602 — >121050 TSR 144, @ 165 00 

604 ^>144 

606 — > 16500 

610 — > 121050 TSR / 1, © 16502 
612— >1 

614 5>16502 

616' — 012071 BRlSr RITRN 
620 


D2 


■+ 01 2050 ERir CLOSE 


*042742 050210 CLOSE : BCMP R2, M 15 

74-!! ^.17 D3 

746— > 011407 BRGT. +20 
750—^ 011407 TSR / 226, @ 16514 

752 5^226 

754 16514 

756 > 121050 TSR / 1, @ 16516 

760 ^ 1 

762 16516 

764 >012006 BEN .+16 

766 ->121050 TSR/ 36, @ 165530 



*42770 5* 36 

2772 — > 16530 

2774 > 121050 TSE^ 1, @ 1653? 

3000 > 16532 

943002 — -> 000010 ETEKT ; ETS PC 


Patches on KDM 


*015224 
26 
30 
32 
^ 34 
36 
40 
42 
44 


— j>100 


hoo 


Noop 
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PROGRAH DBHS DMDl ANALYSER FOR TDC316 IHPLETATION DMDOOOlol 

PROGRAM DBMS DMDl ANALYSER FOR T0C316 IHPLETATION - PHD00020| 

THIS PROGRAM SCANS INPUT FROM DEVICE 5 FOR DMDL CARDS DMD00040'| 

»*««««*«»*«*■»»«**««*««»«*«»«*«**«**»«««»««»*«***»«»*»**»«*« »**»**«***««0MDO 00 30 i(| 
»»««»«» »»»#»*«»*«**««*»*#»»*#»**#***»««««««*« «*«»*»«»««»»*«««»**#«#«**» dm DO 00 50 L; 


an 

AD 

IN USER CODE FOR INTEGER FORMAT 15 MAX PERMISSIBLE DMDOOtlOl 

rpdir -----relation - Fields/items directory has all details dmdooizo^ 

RTAB - — -relation TABLES CONTAINS DETAILS OF EACH RELATION DMD00130| 

FTAB field TABLE CONTAINS DETAILS OF ALL FIELDS/ITEMS DMD00140| 

RElN DMDLAN0UAGE CARD GIVING RELATION NAME ACCES CODE DMD00150| 

FLDS - — -DMDL field DEFINITION CARD GIVING NAME TYPE DMD00160;| 

DATA DMDl DATA DEFINITION CARD GIVING NUMBERS DATA CARDS DMD00170:f 

lEND DMDL END CARD INDICATING PHYSICAL END OF ALL DATA DMD00180 

CONT - — -CONTROL VARIABLE FOR lOpT ROUTINE 1--READ 2-WRlTE DMD0fll90| 

13^0 -----DEVICE NUMBER U-CR/LP 2--13 3 — 14 4,-l5 5 — 18 DMD0020Q| 

CXNO - — -TEMPORARY DEVICE NUMBER DMD00210fj 

gUFF —^.•SYSTEM BUFFER AREA USED BY |OPT ROUTINE DMD00220 

ACCD ACCES CODE 1--ALPHA A2 2— LEVEL IN I2 FORMAT DMD00230 

fil -^..-number OFFIIlDS HAVING INTEGER 15 FORMAT PMD00240 

— — •number OFFIILDS HAVING SINGLE ALPHANUMERIC 10A2 DMD0025Q 

— — -number OFFIElDS HAVING DOUBLE ALPHANUMERIC 30A2 DMD00280 

KARD — — -input FROPM card reader/ keyboard in A2 format DMD0 0270 

0gA - — -integer code from DBA DATA BASE ADMINISTAtOR DMD00280 

IREL — — RELATION NAMES REGUIRED BY USER STORED 2A2 FORMAT DMP0Q29O 

IRID ---relation ID REUSIRED BY USER IN 12 FORMAT OMDOOSOOi 

IFID ——FIELD ID required BY USER STORED IN 12 FORMAT DMD00310! 

MCFR - — -common relation -FIElD/ITEM MATRIX COTIANING FtDlD DMDQ0320: 

NR - — ^pointer indicating CURRENt VALUE IN ----RTAB DMDQ0330: 

NF ——POINTER indicating CURRENT VALUE IN -rr-FTAB DMD00340, 

NFR •• — LpoINTeR indicating CURRENT VALUE IN - — -RFDIR DMD00350: 

L ——location on disk RElATlVE TO FIRST ENTRYON A DNO _ . 0MDOQ38OI 

nor —•number or pointer to a particular tuple in the REUTNDMD00370! 

NDC •,•• •number of DATA CARDS / TUPLiS/O.CCUR ANCES IN A,.REL AT INDMDO 0380 

NRQ --;2#NQ twice THE NUMBER OF RELATIONS REQUIRED BY USER DMDQQ390, 

IFLG A FLAG FOR DISCRIMINATING READ ONtY USERS , l—READ ONLY 2-ELSEDMDOO40OI 
INTEGER iDIMENSlON AND COMMON CARDS FOR EACH 0^ THE VARIABLES ^000410 

nnnnnn,*#»****#««i^»####*#«*«*#****ff*«***#***«**»**«*«*»»*«»**»«****f*«’DMD0042O. 

INTE QE R RElI D# FLDI D» an #RFD IR #RfAl» FT aB *D AT At liND ,RELNt FLDS ,TLRCl i 
iCONTtDNOtDTNOtBUFFiACCDf ADftAtDBA . ^ « .l. 

dimension KARDHS) »^T4|< 40» #R^D IR CSOi 3). »RTA|t 20 #101 tBUFFi 2#40J < 

1 # IREL(2O>#lRlD(lQI»AClfil?hMCfR.JlO»|0J»IF.IDjflO)»D8AT2) 

COMMON KARDiNRiNRfNI #NA#EtAB»FL||||RTAiiR|U|f4Nt||fltNDC#TURCH# r - ' " 

■' MEHIND ' 0'"- V. ‘ 

^ ' rewind iA '''' 


EXPLANATION OF PARAMETERS USED IN DMDL ANALYSER ARE-— — — - DMDD0Q60i'i 

RELID — — -RELATION IDENTIFICATION NUMBER DMD00070| 

FLDID FIELD/ITEM IDENTIFICATION NUMBER DMDOOSOf 

USER CODE FOR ALPHANUMERIC FORMAT SINGLE 20 CHARACTERDMDO 0090 1 

-- — -USER CODE FOR ALPHANUMERIC FQRmAT DOUBLE 60 CHARACTERDHDOOlOOf 


CONT 

DNO 

DTNO 

BUFF 

ACCD 

NI 

NA 

DA 

KARD 

DBA 

IREL 

IRID 

IFiD 

MCFR 

NR 

NF 

NFR 

L 

NOR 

NDC 

NRQ 
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PROGRAM DBMS DMDl ANALYSER FOR TDC316 IMPLETATION DHDOOOlOil 

PROGRAM DBMS DMDL ANALYSER FOR TDC316 IMPLETATION * DHD00020: 

THIS PROGRAM SCANS INPUT FROM DEVICE 5 FOR DMDL CARDS DMD00040; 

«««»«»««DHD0 00 30; 

»#»««*»«•»*««*»»««*«« «* *» «» «»»««•«« ««»»««»««««« «« »«»««««« «« DO 0050 I 
EXPLANATION OF PARAMETERS USED IN DMDL ANALYSER ARE-— DMDOOQ60:: 

RELID RELATION IDENTIFICATION NUMBER DMD00070:i 

: FLDID FIELD/ITEM IDENTIFICATION NUMBER DMDQ08Q’ 

I an - — -USER CODE FOR ALPHANUMERIC FORMAT SINGLE 20 CHARACTERDMD0009Q|: 

: ad USER CODE FOR ALPHANUMERIC FORMAT DOUBLE 60 CHARACTERDMDOOlOOt 

! IN USER CODE FOR INTEGER FORMAT 15 MAX PERMISSIBLE DMDOQllO 

: RFDIR relation - FiELDS/lTEMS DIRECTORY HAS ALL DETAILS DMD00120: 

I PTAB - — -relation tables contains details of EACH relation DMDO013O' 

: FTAB field table CONTAINS DETAILS OF ALL FIELDS/ITEMS DMD00140;! 

; pgj^N — — -dmdlanguage card Giving relation name acces code DMDooisOj 

: FlDS DMDL field DEFINITION CARD GIVING NAME TYPE DMDQOldOi 

; DATA DMDL DATA DEFINITION CARD GIVING NUMBERS DATA CARDS DMD00170: 

; lEND — — -DMDL END CARD INDICATING PHYSICAL END OF ALL DATA DMDOOlSOi 

; cONT - — -control variable for lOpT RqUTINE 1--READ 2-WRlTE DMD00190 

: DNO - — -DEVICE number i*-CR/LP 2--13 3 — 14 4--15 5 — 16 DMD00200 

; exnO - — -temporary device number BMD00210 

; BUFF - — -SYSTEM BUFFER AREA USED BY |OPT ROUTINE DMD00220 

: aCCD — — -acces CODE 1--ALPHA A2 2— LEVEL IN 12 FORMAT DMD00230 

3 M NUMBER OFFIElDS HAVING INTEGER 15 FORMAT PMD00240 

; - — -NUMBER OFFIELDS HAVING SINGLE ALPHANUMERIC 10A2 DMDO025O 

j CA - — -number OFFIElDS HAVING DOUBLE ALPHANUMERIC 30A2 DMDOO2<50 

; KARD — — -ImPUT FROPH card reader/ keyboard in A2 FORMAT DMD0 027Q 
; PBA - — -integer CODE FROM DBA DATA BASE ADMINISTAtOR DMDOO280 

3 IREL — ,,rE1^ATI0N NAMES REQUIRED BY USER STORED 2A2 FORMAT DMD00290 

3 IRID — — -relation id RIUGIRED BY USER IN 12 FORMAT DHft00300 

3 IFID field id REQUIRED BY USER STORED IN 12 FORMAT DMD00310 

3 MCFR — — -CDPPO^ RELAtjON -FIElD/ITEM MATRIX COTIANiNG FlDID DMD00320 

3 NR — — ^POINTER indicating CURRENT VALUE IN - — -RTAB DMDQ033O 

3 NF -—POINTER INDICATING CURRENT VALUE IN • — -FTAB DMD0Q34O 

3 nFR -—-POINTER indicating CURRENT VALUE IN —RFDIR DM000350 

3 I —location on disk relative to first ENTRYON a DNO , . DMD00360 

3 nOR - — -number or pointer to a particular tuple in the re lain DM do 0370 

3 NDC ---number of DATA CAROS / TUPLiS/O.CCURANCES IN A REL AT INDMDQ O 38 O 

3 NRq --;24N0 TWICE the number of relations RfOUIRiD by USER DMD00390 

3 IFLG a flag for discriminating read OHlY USERS 1--READ ONLY 2-ELSEDMD00400 

3 integer .dimension and common cards for each of the variables POOHIO 

integer RELI D*FLi,ID» AN »RPD iRiRfAS»FTA8 iDATa# IEND ,RELN»FLDS|TLR0# 

ICONT »DNO fbTNOtBUPF lACCD# AD»10’A#tBA .. - - 

dimension KARD(40),FTAS( 40#lliRr0lRj50i3!(.RTpt2O.lO),8UFF{ 2,40) 

1 . lRBL(2O)ilRiD(lO),»^CI?0(|hMCFR_(10*|O)ilPIDllP)»DSA.(2> .. 

COMMON KAR0,NN.NF,NI.N*,.f*?,ft.,«,litj8,««L!£,AN.lN.L,NBe.Tt.se(l, . , . , 

' 2 ' r'WA T# ft fti'K I f f I S" ‘ ^ \ 

c#«fni**A»*#,*»«*#*****#»*«**MA**f iff iff ****************** 

jRlTUtlSAtlSl'ff »«* constant 


IN»200^1 
AN®20033 
IBL2-8224 
FLDS»19526 
RELNs17746 
DATA=16708 
lEhiDsl7737 
NR=0 
NF«0 
NFR»0 
RElIDsO 
FLDID*0 
L«1 
NDC«0 
CNO»l 
NORsl 
NAT*0 
* NN»0 

NllaO 

DBA(1)»16964 

DBA(2)«Ol 

g PROGRAH to test DBA AUTHORISATION 

WRlTE(2i20Ql) 

2001 FORHAT (10X.*MAY I HAVE YOUR IDENTIFICATION PLEASE ?«> 
rEaD( 1,2002) ACCDa),ACCD«2) 

HRlTE{2,2O02)ACCDa)»ACCD{2) 
loot F0RHAT(A2»I2? . . ^ 

IF ( (ACCD(l) .EO.DBAU) ).AND,<ACCD<t) ,EQ,0iA(2) ))8Q TO 7 
hr ITE{ 2i 20 03 ) 

2003 FORHATtlOX** SORRY ONLY DBA IS ENTITLED TO USE DMD ANALYSER 
STOP 

7 HRITE(2,2009> AC0DUI*ACCD(2) ^ 

2009 FORHAT aOX|#WELCOMB SIR J0BA AUTHORISED CODE — •» »iA2.I2} 

HR iTE(2|20Q0) 

2000 FORMAT (10X,#BU1LDINQ A RILATIONAL DATA BASE FOR DRDO LA8S«,/ 40X, 


1 49 ( IH* ) ) 

##»•»#»»»*»»*»»*##*■» «* »* «* ** •* ** •• *«•*#**#•**» *« «■* •* «* *» •* *♦ ** ** ** •* ** •* ** ** •* 

X KRITE{6#1CI00) 

XIOOO F0RMAT(1H1#40X**S UIlDINS RELATIONAL DATA 
18 A S E •) . 

c Blanking alu the Tael^s »**ini«**«#»»*«*»***«*****#'mnm***** 

DO 11 1*1, 100 
DO 11 4«1#4 

11 FTA8(I#J)*sl8L2 
DO 12 I* 1* SO 

DO 12 U«li3 ■ , 

12 RFDIftdtUJflBt*® ... ■ ^ ; 

DO 13 l»li|0 

DO 43 U?l*10, , ^ 

roR DDU IS*NNiR eWKEMES FMW HERE 

*EL*tie# RSLH ■ nahe acj#) 


kRlTS(E.E««A), 

2004 F0RMAT(10X.,*,fU|**f WfB 
91 READtt.t)(«ARB()l)*ln.7) 
1 F0RH*T(7M) 








10- SI 


NAHI: ACf«) 


.chsck 


3 


HRITE<S» 2064 } 

3004 rORHAT(lOX»« PLEASg GIVE REIATIOH DEflNITlON AS REIN 
SI REAI 3 ( 1 , 1 HKAR 0 (UiI« 1 # 7 ) 

% F 0 RRAT{ 7 Aa> 

WRlfi<a» 6 > (KAR 0 (n»I»li 7 > 

X WRITiCfiflKKARBCDtin,? ) 

I F 0 RMAT< 7 A 8 ) 

IFCKAROdJ.IQ.RiLR) CALL IRILH 
iFCKARDiD.NE.RELfO GO TO 5% 

C*f##HAVlNS RECG 8 NISE 0 0 BL CARD CALL IRELN ALLOCATE DEVICE NO 
WRITE< 2 , 20 O 5 > 

tecs FORWAT(l 6 X#«FliLB BiFlNItlON AS FLDS NAME IN OR AN OR AO *./ 

1 ieX#«At IND QlVf HO OF DATA CARDS AS DATA XX 4 HANKS* I 
RtABCiilJ (KARD( I)*I« 1 » 7 J 
<KARDU>» 1 « 1 * 7 ) 

WRItl<«#iHKARD(n»I* 1.7 } 
iriRARD(l>,NI*riDS) CO TO 4 
CALL iriDS 
GO To 2 

4 IF (K ark iJ. 10 . DATA) 60 TO 9 

C,##*#w'^®RliA 110 N TAtLi FiElD TASLD COHPLgTeD DOING TO R 6 aD DATA ***•*#•«•*•* 
% HOC*KARD< 4 ) 

CALL ICOHINOC) 

TLRCW«S 4 H| 42 KH«A^ 60 *OA 

,| WRItKKilOll TLRCH ^ - t«% 

"illCl rOR«AIIS 0 X»*foTAL LIHGTH 0 ! EACH RICORB 

?f ^ ; , , ' ■ 

M&A tfilftllsMfalLAeL.ISi • DATA CARDS IH CARD RgADERS*) . 

4JU«?1I luScinU *M* rWH «TWTiN« ,*BBWSS t TLRC. ro. EACH BBC ........ 

RIASIHRiIIH 

rias<hr#i>«rdc 

RtAStHR*l)»Hl 
RfA 8 |HRttJ*NI 
R|AilHR#iO>»SA ^ 

II... B**ii; 5 E''w 8 ’il?B’'Jc BBC HI HA BA..,. 

MOBI fOBHAtaMi.HSUB HAM BBS jj BTAB— ..IS) 

c.H4..‘*Tew!B« roa'llBB ««!»' *?T(W biabihb the data cards 




L»l.* lOFt 

e ADjyStiN© BUfFSR TO HAVE SAHIIIAR FI610S 

f DO 15 J*1,W 

IF<J.IE, HU BUrrCl»JMO 
IFCJ.OT.NU DUFF(i,JNIBL2 
CQNTlMII 

C WRITINO ON THE SAWS DEVICE NUHiEH 

C0NT«2 

i:, DNO«DTNO 

00 if Ktiiion 
%7 CALL lOPT 

: HAVIN8 WRITTEN ON DISH A FUll, RIIATION TESTINQ FOR lEND •*#«*•*•«• 

Wf!lt6(2, 20071 

: 2007 rORHATdOX,* IS IT AlLf ©IVS UNO CARD ElSE QiVi RElN CARD £*) 

9 REA0(lilHKARDCl),I«i#7J 

: WRITE(2,6) <KARDtn,l»li7I 

X WRIT6t0ilHKARD(n,l«1.7 I 

IF{KARD(1).IQ.IEND> 00 TO 20 
IF(KARDa).NB.«eiN> 00 TO SO 



5 CAtl IRilN 

£■■• 0OT02 

D Ai.L RELATIONS WAViN© iiiN BiflNiO SOON NIIPlNS CAN ©E ADDED *««*#*#^ 

ae coNTiNyi 
' 1 MRItfCi#|S) 

5 II roRl«AT<lMi»46X»* ALL R i L A I I 0 N IN D A T A i A S E 
II HRIlEd.ieOt) ' ^ . 

.• 'ims r@RRAtiiei«« all relation in data sase t,/,2@x#i5aN«n 

1001 r0RRAT<///liH»tO0NtlNtS OF RTAR «| 
leef roR«Attiex#I5»2A2#2II,A2»4fSI 
1111 P0RNAt«aOX#«N«MtlR 0^ INtRlEi IN TASLE*»*»I9I 

X NR If §{ 6f 10001 

A MRSti<ia0ifM(8TAiU.d).ana0J»I»l.NR) 

:tl NRIfElOtllill NR ' ' ■ ■ 

i wi If f c ii iiiT I 

''1007 P0R«Af<//.lfN#*C0N|INf| OF FORNAT#) 

W«lt|«0asts> <imSlir#40#^?N4# 4l#tF»l,NF) ■ 

1010 rORMAf Ct0J{#|»*IXfiA|#SX,"IS7 : 

I# MRIlfilltlliil '\Uf 

II ' mritei ii iioii 

PIIOI r0«>IAT<F/III#«e0NflNtt .0?. Rr»,|R«,/i©l##RiLIB FLOIB 

■ PCRHAT#)' ' ' ■’ 


;A0O41W« il; 




9610 F0HHAr<IS.2A2, 19) 

WHllE<ie#0011)C(RrDlR<IRi4Pi)t48«li 3)iII«i,NFR) 

RERlf^D 16 

tail roRMAiois) 

STOP 

36 RRlTgC 2 * 40 } 

40 FORHAKISX,*—— fRiOR—— RIIAIION HOT PR0P6RIY DEriRgD 
60 TO f 

160 F0RHAT(R||#8A2> 

STOP 

6ND 


SUBROytlRE IR61H 

6 . 

#♦*••*•••#•*•#*•*******•**•••••• •••♦•••••••♦••♦********************* 

THIS SUSROyTINE BUllOS RTAS ST AIL0CATIN8 RElIO ANO DRO ###*#####•*# 

C**# 

INtfOSR RSLlBtfi.CID»AN*RrBIR#R?AS»rtAS»0ATA»IiHD,RILH»Fl08,TLRC«* 

lCOHt#BNei0fN0#8urr#A?C0#AIi#eA#MA ^ ^ n . 

OIHSNSIOH KA8B<40)»FtAB<l®6#4J»RrBIR<96#3),8TA8{10,lO),8uFF<SO#40) 
li IRSi.a8|#IRIB(l0l#AOCSia|f8jril||S*iS)»inB<i8|*08^<2> 

COHHOH KARB#NR,«r»HLHA#rTAS,a||M|AI»IIIUja«*|H#t.i;BC,TlRCW, 
iCORf »BI«O»NOR»«FR#fyFr#i4Re#lRSCtII'llfitlFi8*HCrR,Rr8iR,ACC0»0A 

Stiff# •#•♦#•♦•••*•♦••*♦♦•#♦♦••**•♦*• ♦♦••♦♦♦•••♦•••♦♦*****^************'****‘*****^ 

Sfftffff fSSIlHS FOR ByFtieiTft IH RfUTlOH NAMiS #•##••##*##«##* 


: llfili fff IflP RSlATliH IS TO 81 SIORID 

trip. If ;'!»>; W, ' • ^ ... , 

■, ■ . ■■ ■ 

RTAI«HRi|>«KAR 0 < 5 I ■■ "'-jV,; - 

IF « f Sr^SI! f I ??»B? C Rt ;iS'. 18 ' ■' ".■'r'ii'::- : C'’ ■■ ■■ ' 

IF fWR.tt.itr'ORSPt ^v(> '".^v.v ^ -j 

8TA8l8R»4>p»Re ■«' ‘''v ", 

RTA8<Nfl,#JilA«B<F) ,. : 

RSTWHN , ■■'' 

si roiSSt (IM e’W*®’- '»»* 




■ 'Hfiwaii ' " i. :s' ■'■' ' 

14 FI«Cl4,t ^ 

sSliJ ..‘i‘.'l“* » .»*T, <wrr« j 

,. Wfunn _■'■<■ . 

» riNOli.L 


SUBROUTINI ICONCIOtV) 


I ^ 

f e“««"**j!;jr8UMoCTiSr*ccoBV6R*r**r”?Miir;*‘vi;j:‘** * 

I P> BRfa A FORHai I^Iq |g F0 RHAT*#*«#«#«*«ii 


wwfinMuuilK CCQKViRtS A rnouAT " ; ; - - "’'--’-•''*»****#*#**«*#i 

1*IQ|V • *******'********»**«*«*#*##«*#»##*«#*«#ii 

4*1 

l« 1/254-48 

J«4-tI*48)#tl4 

I»<4**48>*lO*I 

I6IV«I 

RITURN 

IND 

SUBROUTiNi loPT 

c”""tS*s*sjMw*Ns*REiDr**iRn8roj”S6J*criN*vrsr«,*r;r”:*******”*** 

cowitl FOR RiAfi t For «Rlti LflSi pSLb/i format «»•«•»«••« 

pofcR/iP82,3M« s for disk *.#**•• 

lCONT,0NO»BTNO.fil!Fr,icci.ALiA.c2^ 

2 tNAT»WlI,>|N,iriB *""'‘**"5*»V*"*0»*^‘-9»«CFR»8FDIR*ACCD»DA 
{■NOR 

RAT*i6#8A#IO#iA 
NN*«I*NAI 

IF<eONI,ia,2) 60 TO 20 

80 to l4»|3.14,ll#i«^^0R0 

rItuM •"'’W*».»l»iN*t.(BurF(l,J),J.Ni 1,810 

riNS13,t. 

RtTURli . 

FIR|S14#1 ' ■ -‘ 

igfllRR ‘ 

FIR015#1 

' , ,1 v 



jceNT#0R0fROft#«ri*iiii 

. Afiil74y| ■'•■-.irif ■" 

I;; I4rii»p4j “■ ^ 

J;;:' ; Nr«iiRlf| 

jy ',’ §0 . IQ i41‘*|^-f''.'5-.;'', "A'' 

. riijio»rt0i|4i 

sToRiini in rf^ 
^TAiiNfaHriBrj.;;, , ,„ 

rTA»|nr,f}.KARBf-4K'"-'i| 
f^TAi(|(jr,3)«KARl3(flj 

6 TIStlNS rOR TYRg o#;¥i 

II foR inri 


flKllfilRiUllllB* tflS#M0fl!,Rro|R 


to 3o 


Rtl NS R I C " n »«««' 


il5 


m 


;,' X 

, m 


MRlT6(l3,100)Rl,|8urr{I.Jl. J *1 iyf% 

RgTURN 

riN014A 

WRlllfl4»l00)fi(|,(8ypp#| »j 

RSfURN 

riNDlSa 

SNOrilE ss 

RgTURW 

FINDlfiil 

RftURN 

CONtllyuS 

NRlti(2,42lJ . , 

JIRIT|(«,421) 

rORMJt<HJlIll4aj^^^ AWlWORISgD TO WRITS IN Bg# j 

RETURN 
INi 


lURROUTlNS iriOS 






r 




_fi m' tueiciti QM nestj 


ir(KA«D< 7 ),ia,IN) QO To 20 
ir( KA«c(7>.Ee. m oo tq 25 
ir(KAR0cn.ir.Ao> 80 10 27 
Q0 10 50 


' 20 

ireT»i 


rTA8cwr#4>»iroT 

NIiNI+i 


QO TO 40 

' 25 

If if iS 

rtAKRF, 4j«iroT 
IIA*NA*1 


80 to 46 

i.'' 27 

irot »3 


riA8«Nr»4J«irot 
80 to 40 

triiOifiito 

nmmuhta^ 

im«rfii«i,4> 

}I<jJJS<|Kie48> 80 to 45 

irf8A80«»J,i|,48i io fo SI 
it|8ARO<tl.l8,|0> iO to 14 

I r Of'io 11 ' ■ 

•■'41 troiii ' ^ 

■ 8|*|I41 . ■ ^ 

80 10 if ■ ■ 

*y|f irofif ■ , /■ y ■ 

Wl4i4^t ■ 

80 to 17 

18 troiii 

• HiitllAiiii 

^ 8^i|RiNr8«ai«rit8So 

r rioiotiriio 

t. UlTOOO , ■/. , 

Tiltfi'i 

^.„„^.;:8Rlf8l 

l#^;y,r0RHAt 

NF»NF- 
*ir««Rr 

■iZl 

m 



"OyTINES 

l I^r^D*'**”*'* “LrJ! 5** 

S ?fn S '«**!lEH!»TiOt( KUHBER 

I ID !III!usi2 SSSi J2! *UPH*RyR6RIC FORHAT SIRSlI: 20 CHARACTRl 

C IN •••••USER Fnnc rnc ?u * eJ ® ![®*P*T DOUBLE 40 CHARACTBI 

. .12.*.- CODE FOR iNtKOiR FORMAT IS Mix Pc^Mfcetai e 

g RfUTlON • riaoS/lTEMiliftEcTORT ^5s AU il?ns 

I contains bitails OF each relIt on 

I table contains SETAILS OF ALL FlELDS/ITiMr 

I S2S^ SS^TROl variable for IoPT routine l.iftlli'gfJIlTp 

f BUFF *’’r**'2liTfS a^rffS |■*’•CR^LP 2—13 3.*lA ftiH 

5ccD routine 

I Ni®” rrirriuJIlR^sfriiiiriA!?!*^ **®^®‘* 

* 21 CHSSi- NAVlWe iNTlSfR IS fORMAT 

j Qi *****2 i!1Ibbo rt2p!f*’f® WAVINO SINQLE ALPHANUMERIC 10A2 

MAiO I!IIIlN!Sf^r2ft»i*^S!B2*B'i2S«« alphanumeric 30A2 

?RBL 22S2/S21 8*SE A0MINISTA?o2"'^ 

;S;E IB RfUOlRiB St USIR IN II format 

r ifl5 •-‘••-PliLB 10 RI 6 UIRI 0 ST USER STORED IN 11 FORMAT 

, Mcrs •••••£S?2S2 matrix cotianino flbid 

f , NR •••-.pointer INOICATIRB CpRRINT VALUE IN — — RTA8 

Nr -.—POlNtfiJ INOICAtlSS cjRRfN? VALUE IN •— FTAi 

NFR •••—POINTER INOlOAflNl CilRRENf VALUE IN •-••RFnfft 

i ^ — ••LSCAIION ON ml REillrVI TO FIRST ENtStON A ONO 

RDC ’TIUuSm n! IR TM^HELATR 

I JFLS A FLAi FOR OliCilMlNAflNS RfAB ONLT USERS 1^-REAB ONLY l•iLSi 
; lUfR •—array or USER AR|a FOR BATA MANIPULATION 

, 'sS fr Si iffiffiii! ™ 

i '?22i*¥K.'2*f4 M,N*T,»ui,NN,iriB 




WR!Ti(S#l) 
t WRITEC*,!) 

1 FORHATC 10X,«D S i 1 t u e » 

0 1* •♦•**#••«•*•»•«#««** ® * T P R 0 6 R A M S 0 U T P U T « i 

*'*****CALL^^^OPeN OPEN ************••***♦*«•••**•**#»«•** «•••**« * 

I MRIT6(0,11O3J 

1163 FORMAT (aOX, •CONTENTS Of McrR mss 
; % WRITE (6#1104) NO# C< MCFR <1 ,J i, j«i* nq j \m* 

116 4 FORM AT <1 OX, N 15) U , J », J«l, NQ }, I« i, rq j 

X WRITfc(6,lil2) 

l« IT £( 2, 11 12 ) 


1112 FORMAT(iex,50(lH-),/,2ox,# qrir TEST COHPLETED* ,/ ,iOx ,5 0< 1 H-) ) 
testing SUSRoyTiNi 8S6RCH 

K*2 


I 111 

WRnEC2,1203) K 

1263 FO8MAT{10X»«8IVi LOCATION OF RilIB--»,I3,« IN RTA8 f«) 
; CALL B86RCH (K,RTAS, I, INCX) 

NRIT6<2,1202> K,INSX 

1262 rORMAT{lOX,*8gLI0 •, 13,* HATCHID IN RTAB AT 

X WRITE (6,1201) 

■v' WRlli(8,ia01> 



laol FORHATCieX,fO(lM-),/,2ex,« iSIRCM TEST CO«PLITEe«,/, 10 X,SO(lH-) ) 
RAtJIE 2 ' ' ' 

^••••••••t TEStINQ SUSROtlTlNI QITO #•»♦♦#*•**•*••••••#••*•« 

I8«l ^ ■ , . ■ 

ii«4 
IT«1 

NRni(ta4Qi}|LilO,it 
CALL 0110(18, ILfItJ 

NRITK a,i®0)NI»CiySR(N.H),««|#«U,NAt,CIUSRCN,NJ,N*Nl!,NN) 

I0*3 

IL«6 ■ 

IT«8 

: MIIIII(l#1401)ILfj0,IT ■ 

CALL iiiiiiiaitif ) ' 

NRIfil t,i00)NI#(I«iR(N,N),IH»|#Natl!(At,Ciy8R(N,M),N»NII,NNJ 

Vr N«|ti(l|140l) / ■. , ■ ' 

I'"'" wmTI(«il40i> 

RiNiNO If ;/•' 

a4«rro«NAT(|fx,#;ii fio offt 

■RAtlii 3 


or RILI8»*«fi3.*RiN«8*ai) ^ 
f)-' 'fist ^ CINPLlfi»A,/,iSM,S8(iW*H - '■ 


f')iil.,cevtwi)<cc 



m»i 

I0f»R«3 


1;: 


WRnE(2»1306)ia,IF2,IPQSN,lF0 

1306 F0RHAT(§X.#G6TF OP— RID-«, I5#« FIB*, IS,# FP0SN#,IS,# F0T«,I5I 
1F(IFQ,66,2) GO TO 1312 

MRnE(2,1321> lySR(i,l) 

1321 FORHATiaaXilS) 

80 TO 222 

1312 IFUF0.E€,2aNr»lQ 
ir(irO,f:O.3aHF*30 

WRITE <2,13221 (IUSS<l,«i.I,«l,il,Lwr I 

1322 FORMAT<SX,3eA2I ' ■ 

322 C0WTINU6 

X WRITite, 13921 
WRItE(2,130a} 

1392 r0RMATC10X,5Q<lH-),/,2ex,# QfTF 
PAUSE 4 

G********* t&STiWG SUBROUTINE 

IRI*1 
1PI«S 
iRri *6 

R6AC<§,1S0S} <|G<I},I«1,I6I 

ISOi FORHAT <30421 

1P*S , „ 

«fl!tl<l,lSetnRFI,IRf,IFI 

FQRRAT<l6X,tOit FL0IB— •» I3,*FRQW REU1B#,12,*HH6RE VALUE FIB-*, 12) 
yR!ti<2,lSi0) (I8<U,!«i,3@) ‘ 


TEST C0HPLeTie«,/,10X.50<lH-)) 
i I T V' *«#*#»♦*****•***»••#**•**#«* 


' 

:'i 

I 

'p 

Iv, 1110 FO8WATfl0X,3fA2) 

s.Vi' 
f ' - 

K'll -! 


CAtl ®itV<IRl,|FIfl8,IRri,IC#IF0R,IP) 
80 TO<lB9SilfOlfi903},tFOR 


1S00 CONtIRUl 

rX" M81fi<6,ifi»J IC<1I 
Ills rORMAKlIX, lf> 

80 18 4S01 v- 

' 1101 iNF«i0 ^ 

80 10 1104 , ■ - '/'V 

.'1113 UNFiSB 
"1904 OONTSNUB 

r KiiiKfiiiitii i.i<r»<te<K),K«s#lRr> 

91# roRHAKtOXfRAtl . ' 

.917 COHlIRUi 

MR|tE<t,l|0«) lwr,<<lUSR<li#W>.,R«l#iwr)*R»2#6> 

I WRIti<6,S908) :. 

|V' 1901 r0«RAT(l©XiS0flW*l»/»l0X#9'W'^ ’tilt O0RPlEfli«#/'#lOXfSO<lH«^) ) 

“',1'' PAUSi 1 ' '■ ‘ 

feitiff####* . lllfIRl fill SIRSti 8UAi CONSTRAINT#*#*##**## 

NRtii ■■ ;• , ;.' 

tllil 


ION«i 

WRltECa, 1701)100, ifQiIVd) 

CAll Sit0<tO8,ir0,IOf»R,IV»ION) 

W0ITi<3,170a) 

1761 fORMAT{10X,#aiViN «fLIC*-«, 12#* FteiC— *,I2*» VALUE— *,15) 

* KRlTI(d,1702) 

1762 FOftHAt<10X#S0<l««),/,i0X,* 0170 TEST COMPLETED*, /, lOX, SO (IH- ) ) 

PAUSE i 

#•«#*«••«• TfiSTIM® SUSROUTINI SITR — RETMIVIMO k REL *•**•**•**«**«•», 
100«2 . ^ ' I 

KR |IE (li i8ii ) IDS 

1101 roRHAKlQXftOIT WHOLE RILATIOH WITH ID— *,I2) 

CALL QftR<IOO,lABC) 

* WRlti<0,lS02) 

WRItgI2tli02) 

1162 roRMAtIiOX,96aH*),/,t0X,i OETR TEST CQMPLETIC*,/aoX,50 (IM-J) 

C#**##**** TESTIH6 SUBROUTINI ' QITU #••*##*#*«##«*****• 

NS@*6 :i 


NOtWRi/i 

REAC(S#lO0l)NR0,tltR0(l)#ITri)U)»l»i#N0 I 

M WRlTEUtlOOl) HiOi{ITRD«U.ITffIJ<I),I«iiH0) 



1661 FORMAtlHia) 

W81Ti(2il05) N0»UtROU)#U«i#«0) 

MRiTll2#16i> H0#ntFSN),J*l,W0) 

101 FORMAT CiOX#»rROM RILAtlOWS ID*»«**#W!§) 

166 FORMAtClOXfiOiTVALUEi OF FLDlOf***,MtS) 

call city CltROfllFB) 

.1 WRni<*,i6St) 

'i' ifillllSfliStl 

'.'lilt FORMAT{16X»90llM»)#/*t0X»* OilW ■ 'fiSI CQMPLi7iD«,/#lOX»S0<lM*)) 

■ PAUSE 7 

tSSlIMO ' lUSMOytIMl ■ O'UMP ^ «*•*•«« 

call BUMP(IASC) V, ; .::c;vv:4i :■ - . ' . 

'X- «Rlti<6#l60t) 

Jtoa »«.»««,? I!»L 

TiStIMt SyWOUflMf 'AgOHEC 

..r ,11#* FOLLOWS—*) 

V , ■ ifif I « I # % 


ltiC6,2402) 

lti(2,2402) 




1402 rOBMATC2eX»88(iH-)./,40X,«AD0Rgq TiST C 0 HPLgTgD«,/, 20 X# 8 e(lH-)> 

TESTING SyiiOytiNg MBtRIC ««••«»•##«*«»«•« 

NlD-1 

MFD«5 

H0R*3 

WRltE(2.80l) MlBiMFCtHOR 

801 FORMAT<10X»«MOOirV FLCie— ##I3»* IOR**«# 12 »•iELOW•*) 

REAB CS,30i) <ICC3>,a«i.30) 
wRiTKCiiSOi) nc<jj*a«i.3oi 
W«Ite(2,301) (ICU)tJ»l.S0) 


301 rORHAt(40A2} 

CAlU MDYR|C(HI0,MFD,MOR»IC»IAiC) 



wRiTKa.aeaj 

802 FGRMAKiOXi# TISTING IMS NiW VAIUE- USING GETF«) 

CAIU GiTF<MIB,HFB,MOR,lPN,I¥,IFO) 

WRni<a,301) (IVCK>*N«t.20) 
t nr HE (if 2382 T 
WRlTE(2t2302} 

8302 ruRMAT(l0X»®O(iH*T#/,4OXf*HOTREC TI8T CCNaETiB*#/»Z0X,80{lH- H 
Of##**#### TESTING SU8R0UTINS DlllRl 

Ii30«9 

NRlTEdffOl) IBB 

«01 FORNAT(llX#«PROCIiBING TO BlUT RSIATION 10— #,13) 

CALI OilTRl (lOOtlASC) 

WRIIK i,f00fH<RTAS(I,UI#U*|»i8l#l«l*NRI 
wRiTEt itfCiSi (crtA8(ir#jrHjp«|f 4)tiF«i,Nr) 

M81T8( i,miH(8rBtR(IR#d|f»ii^*i» 3l*l8*i»NFR» 

.X NRltE<i»ll@8» ' 

' i2f if I 

rol»«A|Ct®Xt«®(iH*If>»4fiXfA0iURl |8St Ce«PliT6Dt»/#20X,i0(lH-n 

fSSflNS lUtWUflNf JfiORIl ♦*•#••#«***#*•#• 

■'r ■ 8IAI ISHIII «NA«(IItl««AN«»l#««f|flW«I*«N*t«8A.(NFNAM(I>. 1*1*121 
URtt8(S«9S2} 

Ha roaitAT(i*x.»Ma*MitBas or TH» Naa MutioN to SB fODED follbm.*.) 

NRITSfiHSlI R||AH<lI#RNIWItl*RNBG»RIII*NNA#MBA» (WFNANtU# I*1»12J 

.. amtii 


SUBROUTINg OPBM ] 

(•«•••••««• This subhoutins checks authorisation and prepares hcfr •*»**«•#•«#« 

CIREI stores relation NAMES NRQ IS THi HUMBER OF RELATIONS REQUIRED 
£««««•••« ACCD STORES THE ACESS CODE AMD ACCES LEVEL 
C*####***# COMPARlNQ RELATION NAME HITH NAME STORED IN RTAU 



RLIASI I *) 


tfStlM ARIA 


Bt ’NAMES ••****•*#« 


1001 


INTE66R RitID. riDID,Rr01R,RTAS,FTA8,DNQ,iurF, ACCS, DA^CONT, DBA j 

OIMINSION KARC<40),FTAB( 40. A) ,RFeiR(S0,3) ,RTA8{20 ,10) ,BuFFC 2,40) S 

l,IRiL<IO),IRIOI10),ACCe(2),MCrR{iO,i0),IFlB<iO),lUSR(4O,4C),BBA(2) ! 

COMMON KARD,NR,Nr,NI,NA,FTAB,FLBlB,RTAS,HlLlD,L.NDC,CONT,DNO.NOR i 

1 ,NFR, BUFF. NRQ.IREL, IRIS, |FLQ,MCFR,RF0|R, ACCS .BA,NAT.N 11 ,Nn , IFI D ? 

2 ,iySR,ITFLQ,DiA ^ ^ 

X WRIT6(6,18G1) j 

roRMAT{38X,«ENTfRIN0 SyiROUTINE— OPEN #) j 

Initialisation of variables «««««««««««««•««••«•] 

IFL8*2 

IP«8 J 

00 101 Kai.lO 1 

|RID(K)«0 ■ ! 
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CONTINUE 
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, B6 48 «*t48 

fwiwVfM '■' ' 

"■' ’ ■!! !!'^!* tflit ^ 
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END 
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so TO 69 
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LNF «10 
iO TO 02 
LNF «30 

00 03 M« 1 ,INF 

1 U 8 R( IT»H)«iurF<l,«Ml 
RrvCH)«iUrF(i,MMJ 

««ITE< 6 , 101 ) LNr,(RFV(J 3 >,UJn,LHF» 
CONTINUE 

MRiTfcsaoai eRie,RFio,jroRT 
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FORMATUOXilSI 
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End 
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60 TO li ■ - ■ ■ 

s;|3 LNr.io^^ 
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-. -^CAU I OPT A V-^ ■'; 

; QuTpytf iNO-' ,'''''-.iii 

00 ao 0K*liNN .■"-•/ 

lUSR (L » JK > ■SUFT < i I ':■>■ ■"' 

.-I 6»lOO)NIi(IUSR<I»J}*y83,',Nn,RAl. 

riKUc ,. . ■. 


OITRSt) 

roR aotmorisaioin 







fiff mmmm 

1 »./4«x.«ettH«n'.. . : 


j SiWliiDlWS The device as Per DMII ugiiie ^AMctivcn 

00 TO («.li.l4,lB.16>.DI.O ‘ eOKPUTED 00 10 

I REfWRR 

13 13 

return 

14 REWlf^D 14 
RETURN 

tS REMIND IE 
RETURN 

14 remind 14 
ifl§ FORNATINiSiNAa) 

RETURN 

END 


$U 8 R 0 yfINg DUHPdAiCi 


Cfi»«f«« ON HEOUiST FROM USER fiURP ROUTINE PRO Jl DM Ii r TirjJ*!!^!^*!'^'******* 
C EXPLANATION OF VAR ISLES USSO FOLLO S*-*S!i!!lfiLI ^ ® RELAS###m##* 

C explanation OF VARlSLfS USSO FOtU l*^*SZZlZ2ll 

' ISfiooo «rrD“?!S,S?S?I!R!S?Lt?Ufi!ILI2r?!SJ?S ». com ».* 

eiNiNSiON 

' I IluSR*IlPLi#OII *^**^*^***^^*^^^***^®**^*®^® *»A»NAT,NlI*NII,iriB 
NRimiaifliJ ■ ■ ^ ^ ' 

^ , NRlfSil.lOOlI ■ : 

Ijll r0RNAll3iX»*|NTE«lNfl SUSRQUTInI**w» GUNPt) ^ ' 

"rtlccBal^JiiAKu?* oo'to'o 

X : HRilE(i»4) lASCIi) 

NRiTit|«4l lASOIl) 

F|tiA||l®X#At# ••••iACCIS foil NOf NATCMiOST USIN' #) 

JJItINS «}f«^^A{Cli h9M% PR I»IP ASBREL OALL 

$ '.'fOiiAtliiIitt*#LEVlL SRtAttfl tmil'ta iil«R u^f . 4i r^yttit AOORgi •) 


o« •» ** «* ** *• **•»*• •# #* #• •«•#»••#«*♦•*##•#* •« •«••••••«««• •« «« •««««««« 4 

t WRITEt 6» iOS6) 

1D06 FORMAT(1OX##C0HIENTS Of «IAi t#//# 8X,«RE|.ID NAH6 Dl^lOSP AC NM 

1 na ni da ' ' I 


X wRiiecAfiiii) nn - - * , 

1009 rORWATC X#I9,aA2,ltS,A2,4ISr 
X «RIT|< 6» 100?) 

1007 FORHAKS X#*COfilTENtS OF FTA® *,//9 X#*ri.CIC 
X wRiii(04oiaJ c«rTA8nr,4F)»jr«i» 4)»ir*i,)ir) 

4 wRifSio.iiU) m 

1010 FORMAtcO X,I».SX,2At3X.I5) 

X WRlTE( 0» 1009) 

lOOa FORWAT«lOX,«CONTENfS OF RFOIR*»//,10X»*8E11D 
IT*) '*■■■ . 

I WRITitO.iOli) C«RrOtRClRfaR)#^R«if 3)tl8«i»NFR) 
>1011 roRMAmOX#l5tl0X,IS,lSX#lS) 

1111 rOR«AT(S0X,#NU«81R OF iXTRIES IW Ta81€*«##IS) 

.. ' Bo 10 1*1, NO 

|.J|piT||0Xj«^^ 


H A Hi 


rioiB 


FORHAT#! 


FORHA 



HRIftli 
WRlti|< 
30 FORMAT 
RETURN 
ENO 


;li] 


UIER BUMF 


COMRilTiO «»/»lflX»00(lH-)) 




c« ** *• ♦« #« *# ## •« •• •* #• *###««#* •§ «# *##•##•# •• •# ## ** «* #• •* #« ** #« #* •• *• ** j 

£•««««•«« THIS SUeHOUllNS ADOS A NEH f^eCORB IN A RELATION DUKINO RUN TINE««1 
C E)(PLANAtlON Of VARlBlES USiO FOLiewS-* — — — — t 

C RID — — •RELATION ID Of’ THl RELATION IN WHICH REC IS ADDED | 

c IV ••—array NOIDINO THE VALUE OF RiCOORD TO BE ADDED 

C lAiC ——USER ACCESS C0IE“ FOR U8IN8 THE HRIVILAGED ROUTINE 

C# ###««♦####*#♦«#### WHHI**4HI *#*«*«##••♦•••*•*»♦##♦•••##♦•*#•#«•# t# #•*•#•** •* [ 

integer ReLI0,rLDID, RrElR,RTA8.rTA8, DNO,BUrr#ACCD, DA, CONt, DBA ^ 

INTEGER RID ' ' ' ' ( 

DIHSRSION KAR0<40»,rtA8( 40,4J ,Rf 0IRC5O,3» ,RTAB<20,10 >,BUrr C 2,401 
l,IRlL<S0>,IRI0aOI,ACCD«2I,«CFRUOfi0I»IFID(ia>,IUSR<4O,40),DiAC2l 
Dl WINS ION IV«4®I ,IAIC(8I 

Ce««0N RARBfNRfNF,NI*NA,Ff AB,FLBID,RTA8,RELID,L,N0C,CONT,CNO,NOR 
1 ,NrR*lurF#NRO#IREL,IRtDf!FiG;RCfR,RFDlR,ACCD .iA,NAT,Nn,N», IFI0 
I ,|DSR4tFL®,D8A 
WRlfl0,4iOlI . 

NRlYlIiiiifil 

FORRAKSlSt^lNTlRlNl SutROUTlNg— — ADDREC*! 1 

INttlllliATlON OF VARIABLES | 

RflRUll ' ' ■' !; 

titlliO , USER ACCES fOBiS FOR AUTHORISATOIn ♦«###•••«**•] 

^ ' ;|fjlt|l<||.fS.IA»C41»| GO to 109' ■ ! 

lAicm, , 

'PiRNAT<10X,At, 4^**ACCi8 

RitURN 

c««««««44 TSEtING USER AOCES 
100 IFUABC<2).LT.1$J ®0 toits 




NOT MAT ON ED BY 
LEVEL FOR USING 


USER «I 
ADDRiL CALI 




NRItSI 

WRITK 

rORiAt 


»,0I lAiCIlI 
ifSj lABCiai 

H9XfII,4l|ViL GREATER JNAN iO USER NOT AlLOMiD 


AS0RSL •) 



I USER AUTHORISATION MODIFYING TMi RECORD#**##***####*#^ 

Id In rtai •*ii#«***«4***#*«*«»«*«**«««**»«*****««#^) 

lp|itBtRTAS,NR,tRI 



ti«5l 


■ likv'ip 
^ lipi 

' ■ISpiRf 
Nll'iRlAfl!R,t I 
NlARTA'iUR, SI 
NtI>NUl 
NA«RTAS(IR, 91 
OA*RTA8IIR,10I 
tiStiNG 
IF|IR*»UR/i«fiI) 

IRItlR^l 

I|PN»RfAi(IRI,S? 

ItSEtlSf^NOC 
iriItiF,|i»IfFNIGO toot, 

GittiN® THE rtflst Empty space a? 
uo»0 ; ; ' 

1 1011^^0 

''0ALC'«it§prii*io,ufir^'^--' ^ ' 


m 


IF NBC IS 
39,S«f20 


SGUAL TO 8P OF NEXT RELATION 




SI' 


TMI END OF RELATION 





m potiMAf 
mtim 


MR IT IN® R6W RiCORC IRTO BUFFER AFTIR UPCATINO RTA8 

N0R«i 

ND0tRBC#l 

R|AStlRi7j*MBC 

IFlNItll.n 80 TO iS 

00 UK «1,NI 

8UrF(R0RtK>*IV«K) 

91 COHtiHUS 

•«•§•« MRItINQ IN NA/DA FORMAT *»** 

9S ir<MAt.SS,0) 80 To 69 

00 60 «•«!!, NAt 

If 8urF<NeRiK>»lV<K) 

••«••• RAVIN6 MRITT6R OR THi R6M RiC IR iUFFiOFF WRITiR® OR Dl 

IS CORT«a 

CA LL 1 CP f 

.««##«•» RIMIR01N6 THg PRORfR OEVICE FOR FUTURE USE «•##•#• 
m TO Illil2#l3#i4»III.0RO 
11 iff UR R' 


0110 for 100 IRS RiC •} 


FB VA 













I WRITS<6,10O1| 

wRite<aaoBiJ 

160 i FO 8 MAT< 30 X#*ENTeRlNa SUiROyTI«i«***« 0 YRiC *) 

TESIIM user ACCiS* CCUfS F§« AUTHOR ISATOIW 
If (ACCOa).EQ, lABCeiU 60 TO IQt 
X WRITi(4,5) lASCUl 
HR!TEI2fS} lA@C(i) 

5 F0RhAT(18X#A2, «•— *AcCHS ^OfS ROT mATChSOST yilR *1 

iSgTlRO USER AyCES UfViU FOR USIRQ AOOREt CAll 
lOJ If <IABCCa).lt*10> so TOiiS 
X HRI|I(4,4> IA8C(2> 

HRI.tl<a#6) lASCISI 

6 FORMAT «1CX»1 2, ORSATIR TMAM 18 USfR ROT ALLOWEB ABDREt *> 

ifiSti 

RetuRM 

e####*##;-' MAI IMS SATJSIfilB USER AUTMOfllSAllOM PROCIEDIRS ##••#»*#*##• 

il5 CAU Sfff iRIIl^f II#IO»»ff©Slj#|U;ifOT) 

60 

1 iriicuiip.ivuH so to ss 

2 UNfilO , 


SO:TO 


'fiiiii 


mm , ^ 

|'>^SOif|fiUf 




SO to 11 


<' 4 f 

0 Wilts?#, ff> ' '. 

9$ format ? iex,« urn amq oio vaiues $am§«« mq aciiom eeouireb*} 

RitURR 

WAV IMS TiSTiO VAlUE WiltliS MODIFYlHS fO VALUE ••#«•##•«»##•» 

11 U0»1 ' " ' ' . . . 

CALL 6itO?RIB»IOR»JOl , * , 

DO 12 IP«1#40 
la KAROCIPHIUSRdaf) 

WRItec2tlC0>HI»{KAM?ISI,lS»l,MI J,MAt#?HA«i?!SJ,IS<lMlI»M«J 
60 To ?ai*2a,S3I*IfOT 
ai KARDCFfOSMNlOd) 

60 to #8 

82 LMf«16 
SO t o S5 
23 LNftSO 
If SO S8Kii,LMF 

MiSOCrfOSMiAIOCKi 
rSOIMAFPOSM^l ^ 

10 OOMtIMUi 
'' #0 «^aI 

' loiiiiSfi. . . .. . . 

0Ail^it|O{»|f*IOS*JO) 

JiFr|li3#T|SAS»fjlP>, 

1 ♦ tSASi 


If 



FORM 


Hilfli 


MM! 





€%€%€% 


C 


HAVIH@ MOBirigD IN eurflR NRITINS ON THS OISK 
C0NT«2 
IOR«IOR^l 
N0R*1 


CALL lOPI 

WEWINBIN® tH| PROPi® OfeVICg fOR fOTURE USE **«•••##•#«*•##♦•#*♦ 



00 to ,i3#O4,O0},0N0 

RgtyRN 

mmm u 

RitURN 
RiNlNO U 
RItURR 
R6NJW if 
RgtURN 
RiWINO U 

R|tU«N , 

mn' " 


6 ■ • 

Hi* 4^ 4# 4M «• 4# •«•••*.•••«•••• f INI t» «#«« «• •« •« •« «« «« INI 

I l--Nii''RtiAttllN OMRiNO RUN tiNE 

® . |iiii u® if t ii Ni •”* '•* ** •• •* * 

NANE'^TO be ABBiO 

IlMwSp 0 BAlA^CAHii OB BEC OCCUBBiNCil 

1'^" "' hm ' CONtAlNlBB’PSiLB/ItBN NAMiS tO Sg ABBEB 

INI --•^•NUNiii or II BlILf® 

INA — -•^NUNBIB &t A« , Il'liil 

lOA «<*««*NUNBEB 0 01 flBiiS 

IaOC .*—USER AceiSS copf rOB USINO TKI PBIVILAOEO BOUtiNB 

C* «••«•••«••«*•««« •• INI *••««••««««« ««•«•••#«# 

iHTEOeB RELID, FLBIB»BrBIB#BtAB,rtA8,BN0»iUrF,ACCB,BA#C0Nl,BiA 
INTEOER RNAH(2) 

DIHENSION KARD(4 0},ftA8{ 40, 4} tRfO |B 19 0, 31 fRTABl 2S «1 D» #SUr fl lf4S} 
i,lREL<2O)#IRID<i0I ,ACCS{a),HCFR(i8,|fiJ,IFIDCiOJ*lUSR(4e»4fl>fBlA<II 
DIHENSION IAOCI2),INAHI20) 

COHN ON K m D* NR tN F, Nl ,N A# FI A8 ,f LS ID ,R lA 8, RELI 0, L* NBC, CONt ,DNO ,NOR 

1 ,NFR,8urf,NRQiIREL,IRlB,|FLO,«CF«,RFDlR.ACCD ,BA,NaI.NI I,NN, iriB 

2 *IU8R,ltrL0#D8A 

X HRlTKS.iflOl) ■■ •" 

NRnE(a,iS0ii ■ c:, 

. lOfii FeRWAKlOXintNtERIHO SulROW||Ni*»— AODRlL I. 1, 

leSlINO USER ACCES CUBES FOR AUIHOR ISAtOlN f 

iruccii i J .iQ.iAsciii > so to io • ^ 

I NR|t|(«,iJ lAiCIl) ■ ■■ '■■■ 

NRItltilf) lAtCd'l '■ 

1 rORItAT«lBX,Aa, #*-»4#xCCiS COBi Not HAtCHIBlY USER #> ; /. 

r. IFLi*a ’ ■ ' /’■' - 

RitURN ' ■ - - 

III4M4W***' tlittM flii ACilS LftlL FOR USINO *8|RiL'-6ALt 



2*2) USC(2> 

(iBXUifHeViL ORiAtER THAN is ySER NqT AUOWED ABCREL 
IAVIN8 SAIISiriEB USER AlUtHORISATlON PRCCIIBIN6 tO OELif 


lICuB 

NCfil«l 

CAU iliRCHUl#RtA8,NR#|Rj 
irdR.ifi.B) W TO 128 
0NQ««TAtflR,4> 

I •RTISUR»9> 

NEC«RtA0ClR*7) 

HI tSTAitlRtiJ 

NA«RTASO«»f > 

DAiR|Ai|t|R,»ie> , , , , . , , , 

iFMNS0«NE«INOO}.OR*(NltNi*iNn*eR.{NA.Ni,lNA).OR*(OA‘.NE.IOA}}@O 



NAsInA 

BA«IBa ■ . ■ ;M;S:-v 

Nn*NUl ■ -.-V: 

NAT«iO«NA#3S*OA : , 

HN«Hl*HAt ' ' 

00130 a*i,iNQc - ' ■ - ■ ■ ' 

NOR«l 

00 30 K«1,NN ; 

J«l # J ♦! ■ ' 

30 8urF<l»K)»lUSRC4J»K) 

C0NT»2 . ' ■' ■■' '. ' 

CALI lOPt 

130 CO NT IN Ul . ■' ' ''''''v; 

'Ct««««««« i|WIN|lN0 THg pRoPgR OgVlCg fOi fUTORE USE ^ 

SO To C«l»Oa>63»«4»6fi).0NO 
it 00 to 40 
«l REWIN& 13 
So TO 4| 
if RENINO 14 
' So to 40 
;’ 44 iENlNO 1$ 

@0 to 4® 

,r IS RiNiNO ti^ 




MAVIN6 WRittiN ON ei$K UP0ATIN8 THE SYSTgN 
AQ iraic.Ni'.ij NR*NRn 
RtAS{N)l»t}«NR 
RTAI«NR,a>*SNAK(tJ 
RTAi{Nft«3)«flNAH(2» 

Rns<Nfi»4)»BNO 

jNR«NR*i 

'■ ^ “ 

f I ' " 


ir(UNANiN>»S8*rtii^a.inUNi.f|liA>l«NH>;ie;fTAtU#3>)J 

NP»NF+1 

FTA8(Nr*l>»Nr 

FTAS<Nr,2)»lNAMtK) 

rTAB(Nr» 3 )«lNAN<MH> 

FfAi(Nf,4j«IFOT 


Nff^NFR*! 




Sf 


00 

70 


10 


uo 


RF0IR(NFR,1)«NR 
RFOlRlNFRtlMNF 
RF0IR<NFR,3)«IF0T 
60 to 00 

NFR*NFR*| 

RFIIRINFRi1>«NR 

Rr0lR(NrR,8)»FTAB{a,l> 

RrDlR(NFR»3>»irOT 

CONTlNOf 

ir{tNA,i6«0» 60 to 80 
INA»0 . 

N^NA 

IFOI*g , 

60 fe 41 " ■ •• 

irqOA'.fO'.OJ 60 to tio 

lOAlS ■ * 

NPlA' 

iWPl-'-,. 

REtURN ' 

6 ND 


f *.V; a S'; 

. . Wv i 




tABlES •«««•*#•••' 


60 to if 



suBRouTiNf mnni (ii3,ia@c) 

THIS SUBROyilHE BEllllS ' A ' RiiAf lOH AHB PUTS THE AREA lU AVAL*««#**«A 

C iXPlANATIOH OF VARI81ES USlft FOtiOHS— — — ; 

C IB ' •••^•-ReUTIOH 10 to Bi BfeifiTEB 

C IA8C -USER ACCESS COOS^' FOR WSIHQ THE PRIVILAOEB ROUTIHE 

' riHBIH© RSLI0' ' |R tfAS USIH6 0SERCH #*#«#*#*»#««»« 


IHTgOgR R6LIB,rtBI0,RrOlRtRTAi#rTA8*BHO#SUFF,ACCD,DA,COHf*B8A 
IHIIOER Al»AV»FIC 

DIHIHSIOH KARBC40).PtA8f 40#4|#RrBlR«50,3l,RTAS<20a0) rBUFF ( 2,49) 
i*IRii«l0n|RIOaOUACCB«2l#HCFtaOaO>#iri0llOI,IUSRHO,4OJ*BiA«2) 
BlHSHStOR IAiCai#|V«40| ' 

C^HH'ON KA8l#Rfl»Rr*Rl,RA#FlA®*a0|B,RTA8#illIB,l.HBC.C0HT*BHC»HQR 
I #RFII#Stlttflli«#lW#!IIIS#trCf^i'^rR.flFDI8,ACCB tBA,HAT.H| I ,HH# IFID 



|0f tifOiRA I f iw SUIflOUl TRl • ) 

C«##l||4# A'ilASATlClH ##•#«#•#*♦•#«««*( 




t9mm9$m r ' ,pBii for autmorisatoin 


■!.-i v- '> , '' ;; • > 






IFIRTA8<IRtftr,iraAlClil !'■«§ TO' 46 
X WRItKSai tA8C(i> 

WRlTll2,i) lAiCUl 

1 FOR«AT(10X#A2, #— ••ACOiS COil ROT MATCHIBBT USiR «,) 

RifURN - 

TSitINS USER ACCfS tSTti FOR USIRQ BitlRi CAU 
U IFUA8Cc2>aT.t0J BO to 4S - ^ 

X W8|TE<Sf2) IA8C(2I ■ z" 

WRITE<a,2l IA8CC2J 

2 FORMAT (lOX# 12, *ti¥Et SREATER THAR tO U8SER ROT AlUORiB OELTRWI 

I as* 2 ' ' *xv; 

G««««»4f Uhi*m SATlSiriEB user AUTNORISAIIOR PROCEEBIRS to BELIT ’ 

'45'"UR«|R-| ■ ^ ' 

ira JR* UR/040 h.eo'.o) so to it 

40i® ■ ' ' 

RII€«RTAi(4R#t t 
ry !0RiRii4RQC/|6«4 

: HRSTi|O,l0eil BRO,CQRt,Rl#RAfBA,RBC,IR,aR,UO,!OR 

":'>v CAii 0iTOfUR,l0R,40) , - • 

RR|IEI4#I|«II ORQ,CORT,RI«RA,BA,RBC,IR,UR,aOt!OR 

liARRIMl THI user ARIA FOR IRItlAlISATIOR 

'Vl'I'T tR|4R"lll<|R,0| ' 

WORRTAItlR.f J 








VRMiRl+RAt' 


00 16 HT«1,NN 


I wOR® 1 

IF<NI,l.6.NI)8UrF(IN0».NI)«0 



16 ir<NT.eT,Nl>aUFr<IN0R.NT)«Sti4 
C#«««*81ANKIN6 TH6 OISK SPACI it |SIN8 lOPT ROUnUB 
N0R«1 
C0NT>2 

WRITiaii0O3> 0RO»0ONr«Nl*NA»8A,li0Cf IRtii 
1003 FORiAtdilS) 

00 IO|K»1»HO0 
CAU lOPt 
30 COHtIfiyi 

mwlNOINO IMt PROPiR OiVIOi FOR FUTORf USE 

SO to (6l*i2»#3ri4#66»»0N6' 

61 SO 10 '!». '- 

12 RlUliO , /■ 

, if to ■■ ■ , 

Mmk dt ^ ,, -Mi. ji •"fe/t . if. .'I t 


HAS i6§R REiOOiO#} 


0»*«« UPOAtIRS RlAi AMO RFSIR • . ••♦*«##*♦♦«#♦###••*«♦*«»###«##♦♦« 

36 RTA8«IR,|M0 ' * ' ' ;■; 

RTA8nR»lJ«AV ' •• *./ ' 

RTA0CIR»3i«Ai , ■ ■ 

«Rn6C6,90eo)<RiAiciR,a)#anriii '' ^ ;' 

9009 F0RHATClS»2A2»2tf »At#4tSJ ' " 

C#«****** -riNOlNS Fllt.0 IN iMi RSUtlON FOR OPBAtlNtt f AS fli'ftfft###*#*#***#' 

DO 40 M*1»NFR ■ ' • ' ,'V\- '* ■// ^ '"r';:" 

lFIRFDlR<Mtl).6«»I0> 60 TO SO ' < >r 

so TO 40 ■ ' ’ • - ■ 

c**#### 06LETINO FTA8 ENTRY IF NOT REQUIRIO BY ANY OTHlR SSSR ###*»###*## 
50 RF0IR<H»1)»O 
00 60 N«l,NrR 


lF«N,gO,MJ SO TO 60 


IF(RFSIR<N#2>,ECI.RF0IR(M,2)) SO TO 48 
60 CONTINUE 

IFK*RF0IR<M,2I 
rTAS<IFK,l)»0 
40 CONTINUE 
RETURN 
END 



